uses crt;

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

i,n,k,max,min,tam: integer;

begin

 clrscr;

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

for i:=1 to n do 

begin

write('Nhap a[',i,']');

readln(a[i]);

end;

Write('Cac so chan: ');

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');

writeln;

write('Cac so le: ');

for i:=1 to n do if a[i] mod 2=1 then write(a[i],' ');

writeln;

write('Nhap so k: '); readln(k);

for i:=1 to n do if a[i] mod k=0 then write(a[i],' ');

writeln;

max:=a[1];

tam:=0;

for i:=2 to n do if a[i]> max then

begin

tam:=max;

max:=a[i];

a[i]:=tam;

end;

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

writeln;

tam:=0;

min:=a[1];

for i:=2 to n do if a[i]<min then

begin

tam:=min;

min:=a[i];

a[i]:=tam;

end;

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

readln;

end.

program bt;
uses crt;
var a:array[1..100000] of longint;
    i,n,k,min,max,tl,tc,tk:longint;
begin
write('nhap n= ');
readln(n);
write('nhap k= ');
readln(k);
for i:=1 to n do
  begin
   write('nhap so thu ',i,' :'); readln(a[i]);
  end;
min:=a[1];
max:=a[1];
tk:=0;
tc:=0;
tl:=0;
for i:=1 to n do
begin
  if a[i] mod 2=0 then tc:=tc+1 else tl:=tl+1;
  if a[i] mod k=0 then tk:=tk+1;
  if a[i]<min then min:=a[i];
  if a[i]>max then max:=a[i];
end;
writeln('co ',tc,' chu so chan trong day');
writeln('co ',tl,' chu so le trong day');
writeln('co ',tk,' chu so chi het cho ',k,'trong day');
writeln('so lon nhat la: ',max);
writeln('so nho nhat la: ',min);
readln;
end.