program ct;
uses crt;
var A:array[1..100] of integer;
i,n,dem1,dem2:integer;
S1,S2:longint;
begin clrscr;
write('Nhap so n: '); readln(n);
for i:=1 to n do
begin
writeln('Nhap phan tu thu ',i,': '); readln(A[i]);
end;
dem1:=0; dem2:=0; S1:=0; S2:=0;
for i:=1 to n do
begin
if A[i] mod 2=0 then
begin
dem1:=dem1+1;
S1:=S1+A[I];
end;
if A[i] mod 2<>0 then
begin
dem2:=dem2+1;
S2:=S2+A[I];
end;
end;
writeln('Co ',dem1,' so chan. Tong cac so chan la: ',S1);
writeln('Co ',dem2,' so le. Tong cac so le la: ',S2);
readln;
end.
Học tốt!