var A:array[1..20] of integer;
   i,N,dem1,dem2,Max,min:byte;
   S:integer;
begin
   Write('Nhap N :');Readln(N);
   for i :=1 to N do
begin
   Write('Nhap so thu ',i,':');Readln(A[i]);
   S:=S+A[i];
   if A[i] mod 2 = 0 then dem1:=dem1+1;
   if A[i] mod 2 <> 0 then dem2:=dem2+1;
end;
max:=A[1];
   For i:=2 To N Do
   If Max<A[i] Then Max:=A[i];
  Writeln('Phan tu lon nhat cua mang:', Max);
  min:=A[1];
   For i:=2 to N do
   if min>A[i] then Min:=A[i];
  Writeln('Phan tu nho nhat cua mang:',min);
  Writeln('Tong cac so hang = ',S);
  Writeln('co ',dem1,' so chan trong mang' );
  Writeln('co ',dem2,' so le trong mang');
Readln
End.

program mang;

uses crt;

var A:array [1..500] of integer;

      n,i,max,min,da,dd,T: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         for i:=1 to n do

         begin

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

         end;

         write('a) Mang vua nhap: ');

         for i:=1 to n do write(A[i],'  ');

         writeln;

         max:=1; min:=1;

         for i:=1 to n do

         begin

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

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

                  if A[i]<0 then da:=da+1;

                  if A[i]>0 then dd:=dd+1;

                  T:=T+A[i];

         end;

         writeln('b) So lon nhat: ',max);

         writeln('    So nho nhat: ',min);

         writeln('c) Co ',da,' so am');

         writeln('    Co ',dd,' so duong');

         write('d) Tong cac so trong mang = ',T);

         readln

End.