uses crt;
var i,n,s,d,c:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if a[i] mod 2=0 then s:=s+1
  else
  begin
   d:=d+1;
   c:=c+a[i];
  end;
end;
writeln('co ',s,' so chan trong mang');
writeln('co ',d,' so le trong mang');
writeln('tong cac so le trong mang la:',c);
readln;
end.

(mong dc 5*+hay nhất)

uses crt;

var A:array[1..100] of longint;

n,i,d,dem,s:longint;

begin

clrscr;

d:=0;

dem:=0;

s:=0;

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

for i:=1 to n do

begin

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

readln(A[i]);

if A[i] mod 2=0 then d:=d+1 else

begin

dem:=dem+1;

s:=s+A[i];

end;

end;

writeln('So luong so chan: ',d);

writeln('So luong so le: ',dem);

write('Tong cac so le: ',s);

readln

end.