Cho dãy a gồm n số nguyên a1,a2,...an. Tính tổng các số lẻ trong dãy

Program tinh_tong;

Uses crt;

Var A: array [1..250] of integer;

       S,i,n: integer;

Begin 

Write ('nhap n=');

Readln (n);

For i:=1 to n do

Begin

Write ('nhap phan tu thu',i,'=');

Readln (A[i]);

end;

S:=0;

For i:=1 to n do 

If A[i] mod 2= 1 then 

S:=S+ A[i];

Writeln ('tong cac so le trong day la:',S);

Readln 

End.

Program Hotboy ;

Uses crt;

Var a:array[1..100] of integer ;

S: longint ;

i,n : byte;

Begin

Clrscr ;

S:=0;

Writeln('nhap so phan tu'); 

Readln(n);

For i:=1 to n do 

Begin

Write('A[',i,']'); 

Readln(A[i]);

End;

For i:=1 to n do

If (A[i] mod 2 <>0 )then S:=S+A[i];

Writeln('Tong cac so le la ',S);

Readln

End.