program Mang;

uses crt;

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

      n,i,max,min,T,d: 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('Cac so chan trong mang: ');

         for i:=1 to n do

              if A[i] mod 2=0 then write(A[i],'  ');

         writeln;

         write('Cac so le trong mang: ');

         for i:=1 to n do

              if A[i] mod 2<>0 then 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];

         end;

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

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

         for i:=1 to n do

              if A[i] mod 3=0 then d:=d+1;

         write('Trong mang co ',d,' so chia het cho 3');

         readln

End.