pascal, tablice, liczby nieparzyste

[mateusz.ex]

Napisz program wczytujący do tablicy A n dowolnych liczb naturalnych (wartość n ma być podana w czasie wykonywania algorytmu) i podający sumę wszystkich wczytanych do tablicy liczb nieparzystych..

[mcbob]

Robisz tablicę, pobierasz do niej liczby potem pętla for w której robisz warunek if czy liczba jest nieparzysta jeśli jest prawdziwy to dodajesz daną liczbę do zmiennej suma

[mateusz.ex]

var a: array[1..100]of integer
i,n,sum:integer;

begin



for i:= 1 to n do begin readln<n>;
end;
if i mod 2=0 then sum:= sum+a;
writeln(sum);
readln;
end.

mam cos takiego, ale cos jest źle bo nie liczy. Miałem problem z wczytaniem zmiennej n, bo nie wiem gdzie to wstawic, i to własnie moze byc źle, ale nie wiem.

[kolanko]

mam cos takiego, ale cos jest źle bo nie liczy. Miałem problem z wczytaniem zmiennej n, bo nie wiem gdzie to wstawic, i to własnie moze byc źle, ale nie wiem.

no chyba logicznie myslac musisz to wstawic na poczatku ? ............

[mateusz.ex]

var a: array[1..100]of integer
i,n,sum:integer;

begin

readln<n>;

for i:= 1 to n do begin
if i mod 2=0 then sum:= sum+a;
writeln(sum);
readln;
end;
end.


teraz po wczytaniu np. liczby 10. program kaze mi wprowadzic 10 liczb, wprowadzam liczby ale po kazdej program wyswietla liczbe 0.

[natkoza]

Kod: Zaznacz cały

program suma;
var a:array[1..100]of integer;
i,s,sum:integer;
begin
sum=0;
Write('Ile liczb jest w tablicy: ')
readln(n);
for i:=1 to n do
begin
Write('Podaj ',i,' liczbe');
readln(a[i]);
if(a[i]mod 2=1) them sum:=sum+a[i];
end;
Write(sum);
end.

może coś w tym stylu zadziała ?

[mateusz.ex]

dzieki, działa