program Min;
uses crt;
var A:array[1..1000] of integer;
    tong,n,i,chan,le:integer;
begin
   clrscr;
   tong:=0;
   writeln('Nhap n: '); readln(n);
   for i:=1 to n do
      begin
         writeln('Nhap so thu ',i,': ');
         readln(A[i]);
      end;
    for i:=1 to n do
       begin
          if (A[i] mod 2 = 0) then chan:=chan+1 else le:=le+1;
          tong:=tong+A[i];
       end;
    writeln('So so chan la: ',chan);
    writeln('So so le la: ',le);
    writeln('Tong la: ',tong);
    readln
end.

Em tham khảo nhé :D

var n,c,l,s,i:longint;

      a: array [1..1000] of longint;

begin

write('Nhap n: '); readln (n);

for i:=1 to n do

begin

write('A[',i,'] = '); read(a[i]);

if a[i] mod 2 = 0 then inc(c) else inc(l);

s:=s+a[i];

end;

writeln;

writeln('So chan la: ',c);

writeln('So le la: ',l);

write('Tong la: ',s);

readln;

end.