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

  n,i,j,s,sc,sl,max,min,tg: integer;

begin

read(n);

for i:=1 to n do read(a[i]);

begin

for i:=1 to n do

for j:=1 to n do

for j:=2 to a[i] div 2 do

max:=a[1];

min:=a[1];

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

if a[i]<min then max:=a[i];

if a[i] mod j=0 then sc:=sc+1 else sl:=sl+1;

end;

begin

tg:=a[i]; a[i]:=a[j]; a[j]:=tg;

end;

begin

read(max);

read(min);

read(sc);

read(sl);

end.

Chúc bạn học tốt!

uses crt;
var i,j,n,s,s2,s3,tam,min,max:integer;
a:array[1..100] of integer; 
begin
clrscr;
write('nhap so ptu:');readln(N);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 s:=s+a[i];
 if a[i] mod 2=0 then s2:=s2+a[i] else s3:=s3+a[i];
end;
max:=a[1];
min:=a[1];
for i:=2 to n do
begin
 if max<a[i] then max:=a[i];
 if min>a[i] then min:=a[i];
end;
writeln('gia tri lon nhat la:',max);
writeln('gia tri nho nhat la:',min);
writeln('trung binh day so la:',s/n:4:2);
writeln('tong so chan la:',s2);
writeln('tong so le la:',s3);
for i:=1 to n-1 do
for j:=i+1 to n do
 if a[i]>a[j] then
 begin
  tam:=a[i];
  a[i]:=a[j];
  a[j]:=tam;
 end;
write('day sap xep tang dan la:');
for i:=1 to n do write(a[i],' ');
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
 if a[i]<a[j] then
 begin
  tam:=a[i];
  a[i]:=a[j];
  a[j]:=tam;
 end;
write('day sap xep giam dan la:');
for i:=1 to n do write(a[i],' ');
readln;
end.