var A: array [1..100] of integer;
    n: integer;
    i: integer;
    tongsochan,tongsole,tong,max,min,sole,sochan: integer;
begin
    write('Nhap so luong phan tu: ');
    readln(n);
    for i:=1 to n do
    begin
        write('Nhap gia tri cho phan tu thu ',i,': ');
        readln(A[i]);
    end;
    for i:=1 to n do 
    begin
        if (a[i] mod 2 = 0) then 
        begin
            sochan:=sochan+1;
            tongsochan:=tongsochan+A[i];
        end
        else 
        begin
            sole:=sole+1;
            tongsole:=tongsole+A[i];
        end;
        if max<A[i] then max:=A[i];
        if min>A[i] then min:=A[i];
        tong:=tong+A[i];
    end;
    writeln('Ket qua: ');
    writeln('So luong so chan: ',sochan);
    writeln('So luong so le: ',sole);
    writeln('Gia tri lon nhat: ',max);
    writeln('Gia tri nho nhat: ',min);
    writeln('Tong cac gia tri la so chan: ',tongsochan);
    writeln('Tong cac gia tri la so le: ',tongsole);
    writeln('Tong tat ca cac phan tu: ',tong);

    readln
end.

program ct;

uses crt;

var i,n,S,d1,d2,tongchan,tongle,Max,Min:integer;

      A:array[1..100] of integer;

begin

clrscr;

  write('nhap n:=');readln(n);

     for i:=1 to n do

begin

  write('nhap mang A[',i,']:=');readln(A[i]);

end;

  d1:=0; d2:=0; Max:=A[1]; Min:=A[1]; tongchan:=0; tongle:=0; S:=0;

      for i:=1 to n do

  begin

     if A[i] mod 2=0 then d1:=d1+1;

     if A[i] mod 2=1 then d2:=d2+1;

     if Max<A[i] then Max:=A[i];

     if Min>A[i] then Min:=A[i];

     if A[i] mod 2=0 then tongchan:=tongchan+A[i] else tongle:=tongle+A[i];

     S:=S+A[i];

  end;

  write('KET QUA');

  writeln('co',d1,' la so chan');

  writeln('co',d2,' la sole');

  writeln('gia tri lon nhat la:',Max);

  writeln('gia tri nho nhat la:',Min);

  writeln('tong so chan la:',tongchan);

  writeln('tong so le la:',tongle);

  writeln('tong la:',S);

readln

end.