uses crt;

var N: array [1..1000] of integer;

a,i,s: integer;

begin

clrscr;

write('nhap do dai day so: '); readln(a);

for i:=1 to a do

begin

write('nhap so thu',i,': '); readln(N[i]);

if N[i] mod 2 <> 0 then s:=s+N[i];

end;

write('tong cac phan tu le trong day da nhap la: ',s);

readln;

end.

uses crt;
 var a : array[1..100] of longint ;
n, i : integer ;
  s : longint ;
  begin
   clrscr;
    write('nhap n: ');
     readln(n);
 for  i := 1 to n do
  begin
 write('a[',i,']=');
 readln(a[i]);
 if a[i] mod 2 <> 0 then s := s + a[i];
  end ;
    writeln('Tong cac phan tu le la: ',s);
     end .