program oken; uses crt; var a: array [1..100] of longint; n,s,i: longint; begin clrscr; write('Nhap so phan tu cua mang: '); readln(n); s:=0; for i:=1 to n do begin write('A[',i,']: '); readln(A[i]); if a[i] mod 2=1 then s:=s+a[i]; end; writeln('Tong cac phan tu le: ',s); readln; end.
