program tongsole;

uses crt;

var A:array[1..150] of integer;

      n,i:integer;

      tong:longint;

begin

       clrscr;

       write('Nhap so long phan tu N: ');       readln(n);

       tong:=0;

       for i:=1 to n do

              begin

                     write('A[',i,']= ');       readln(A[i]);

                     if A[i] mod 2=1 then tong:=tong+A[i];

              endl

       write('Tong cac le trong day A la: ',tong);

       readln

end.

uses crt;
var n,i,s:longint;a:array[1..150] of longint;
begin
      clrscr;
      write('Nhap so luong phan tu (n<=150): '); readln(n);
      for i:=1 to n do 
            begin
                  write('Phan tu thu ',i,': '); read(a[i]);
                  if a[i] mod 2=1 then inc(s,a[i]);
            end;
      writeln('Tong le: ',s);
      readln
end.