Uses crt;

Var n,i,max,min,d,h:Integer;
a:array [1..100] of Integer ;
begin
readln(n);d:=0;h:=0;
For i:= 1 to n do
readln(a[i]);
max:=a[1];
min:=a[1];
for i :=1 to n do
begin
If a[i]>max then max := a[i];
If a[i]<min then min:= a[i];
If a[i] mod 2 = 0 then d:=d+1 else h:=h+1;
end;
writeln(max);
writeln(min);
writeln(d);
writeln(h);
end.

program ct

uses crt;

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

      i,n,d1,d2,max,min:integer;

begin clrscr;

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

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     max:=A[1]; min:A[1];

   for i:=1 to n do

     begin

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

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

        if A[i] mod 2=0 then inc(d1);

        if A[i] mod 2<>0 then inc(d2);

     end;

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

   writeln('So lon nho la: ',min);

   writeln('Co ',d1,' so chan');

   writeln('Co ',d2,' so le');

readln;

end.

Học tốt!

Học tốt!