uses crt;
 var  m : array[1..100] of longint ;
 tong, i, n : longint ;
  begin
   clrscr;
    write('Nhap n: ');
     readln(n);
     i := 1 ;
    while i<=n do 
     begin
     write('Nhap phan tu thu ',i,' co gia tri la: ');
    readln(m[i]);
     if m[i] mod 2 <> 0 then tong := tong + m[i];
     i := i + 1 ;
      end ;
     writeln('Tong cac so le la: ',Tong);
      end.

uses crt;

var i, n, tong : integer;

     M : array [1 .. 100] of integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

write('Nhap mang gom ', n ,' so : ');

tong := 0;

for i := 1 to n do begin read(M[i]);

if M[i] mod 2 <> 0 then

tong := tong + M[i]; end;

write('Tong cac so le = ', tong);

readln

end.