program tinhtong;
uses crt;
var a:array[1..12] of Integer;
s: word;
i, n, d: byte;
begin
clrscr;
s:=0; d:=0; n:=12;
for i:=1 to n do
begin
write('nhap a[',i,'] = ');
readln(a[i]);
if a[i] mod 2 <> 0 then
begin
s:=s+a[i];
d:=d+1;
end;
end;
writeln('cac phan tu le trong mang: ');
for i:=1 to n do if a[i] mod 2 <> 0 then
write(a[i]:6);
writeln('so phan tu le: ', d);
writeln('tong cac so le: ', s);
readln;
end.