Witam. Dostałem za zadanie domowe kilka programów w pascalu.

[HTML] pobierz, plaintext 
1. Narysuj schemat blokowy i napisz program, który nadaje wartości elementom tablicy i drukuje ich wartości.
 
2. Narysuj schemat blokowy i napisz program, który odwraca kolejność wczytanych liczb i drukuje je.
 
3. Narysuj schemat blokowy i napisz program, który sumuje wszystkie elementy tablicy o zadanej długości.
 
4. Narysuj schemat blokowy i napisz program, który sumuje tylko elementy parzyste tablicy o zadanej długości.
 
5. Narysuj schemat blokowy i napisz program, który sumuje tylko elementy nieparzyste tablicy o zadanej długości.
 
6. Narysuj schemat blokowy i napisz program, który oblicza średnią arytmetyczną wszystkich liczb wpisanych do tablicy.
 
7. Narysuj schemat blokowy i napisz program, który oblicza średnią arytmetyczną liczb parzystych wpisanych do tablicy.
 
8. Narysuj schemat blokowy i napisz program, który oblicza średnią arytmetyczną liczb nieparzystych wpisanych do tablicy.
 
9. Narysuj schemat blokowy i napisz program, który oblicza iloczyn liczb parzystych wpisanych do tablicy.
 
10. Narysuj schemat blokowy i napisz program, który oblicza iloczyn liczb nieparzystych wpisanych do tablicy.
 
11. Narysuj schemat blokowy i napisz program, który znajduje liczbę elementów dodatnich wpisanych do tablicy.
 
14. Narysuj schemat blokowy i napisz program, który znajduje liczbę elementów ujemnych wpisanych do tablicy.
 
15. Narysuj schemat blokowy i napisz program, który oblicza sumę liczb dodatnich wpisanych do tablicy.
 
16. Narysuj schemat blokowy i napisz program, który oblicza sumę liczb ujemnych wpisanych do tablicy.
[HTML] pobierz, plaintext 

1 i 2 mam już zrobiony. Stanąłem na zadaniu nr. 3

Mój KOD WYGLĄDA TAK


Problem jest taki ze zamiast sumować wszystkie elementy tablicy on sumuje co drugi. Co widać na zdjęciu poniżej.









Zadania mam na środę więc proszę o pomoc i nie zamykanie tematu ponieważ będę tu zamieszczał też problemy z innymi programami które na pewno wystąpią.

Z Poważaniem. Krzysiek KCN

1. To forum o PHP.
2. Nie odrabiamy lekcji...

W pętli jedziesz od 10 do 1, a wyświetlasz sumy dla wyrażenia: tablica[X] + tablica[X + 1]
Poza tym mam wątpliwości czy zrozumiałeś polecenie 3.-go zadania (albo ja nie zrozumiałem).
Liczby losuj też z przedziału od minus X do X - zwróć uwagę, że na bazie zadania 3-go lecisz już dalej pozostałe zadanka.

@darko, on ma napaćkać algorytm (schemat blokowy)...

Niestety nie pomogę bardziej, ostatnio w paszczaku pisałem coś ok. 11 lat temu i niewiele pamiętam

czyli sumę wystarczy podać w pętli for to 10 do SUMA Read Wynik i tak w kółko?

Przecież w Googlach aż trzeszczy od materiału do Pascala...

Czy jest ktoś kto za drobną opłatą mógł by mi to wykonać? Nie rozumiem tego wszystkiego.

Pisane na szybko, może nie działać, ale próbuj

[PASCAL] pobierz, plaintext 
Program zadanie3;
uses crt;
 
var suma, i:integer;
      tab:array[1..30] of integer;
 
begin
clrscr;
suma:=0;
randomize;
for i:=1 to 30 do
begin
tab[i]:=random(99)+1;
suma:=suma+tab[i];
writeln('Wylosowana: ',tab[i]);
end;
writeln('Suma: ',suma);
readln;
end.
[PASCAL] pobierz, plaintext 

Nie odrabiamy prac domowych. EOT.