uses crt;

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

i,n,min,vtm,tpt,max,td,tbc,tnt,j: integer;

function snt(n: integer): boolean;

var i: integer;

begin

snt:=true;

if (n=0) or (n=1) then snt:=false

else

begin

for i:=3 to n-1 do

if n mod i=0 then snt:=false;

end;

end;

begin

clrscr;

write ('nhap n: ');  readln (n);

for i:=1 to n do

begin

 write ('nhap a[',i,']: ');  readln (a[i]);

 tpt:=tpt+a[i];

if snt(a[i])=true then tnt:=tnt+a[i];

 if a[i]>0 then td:=td+a[i];

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

 if a[i]<min then

 begin

   min:=a[i];

   vtm:=i;

  end;

end;

tbc:=td/n;

writeln ('a/ Phan tu lon nhat trong mang: ',max);

  for i:=1 to n-1 do
    for j:=i+1 to n do
     if a[i]>a[j] then
       begin
         t:=a[i];
         a[i]:=a[j];
         a[j]:=t;
       end;
  writeln ('b/ Day so sau khi sap xep tang dan: ');
  for i:=1 to n do
   write (a[i],'   ');

writeln ('c/ Tong cac phan tu cua mang: ',tpt);

writeln ('d/ tong cac phan tu duong trong mang: ',td);

writeln ('e/ Tong cac so nguyen to trong mang: ',tnt);

writeln ('f/ So be nhat la a[',vtm,']= ',min);

writeln ('g/ Trung binh cong cac phan tu duong: ',tbc);

readln;

end.