Code đây nhé:
uses crt;
var i,n,Dl,Tl,Dc,Tc: integer;
A: array [1..50] of integer;
Begin
clrscr;
write('Nhap do dai day so: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
Dl:=0; Dc:=0; Tl:=0; Tc:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin inc(dc);
tc:=tc+a[i];
end
else begin inc(dl);
tl:=tl+a[i];
end;
writeln('Co ',dc,' so chan trong day va tong bang: ',tc);
writeln('Co ',dl,' so le trong day va tong bang: ',tl);
readln
end.