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