uses crt;
var i,n,dem,t,j:byte;
a:array[1..100] of integer;
    tong,min:integer;
function snt(x:integer):boolean;
var tam:integer;
        begin
                snt:=true;
                if x<2 then snt:=false
                else for tam:=2 to round(sqrt(x)) do
                        if x mod tam = 0 then exit(false)
        end;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);
        tong:=0;        dem:=0;
        for i:=1 to n do
        begin
                write('Nhap a[',i,']:');
                readln(a[i]);
                if i<=10 then tong:=tong+a[i];
                if a[i] mod 2=0 then inc(dem);
        end;
        write('Xuat mang:');
        for i:=1 to n do write(a[i],' ');
        writeln;
        writeln('Tong 10 phan tu dau tien la:',tong);
        writeln('So phan tu chan cua mang la:',dem);
        write('Cac phan tu o vi tri chan:');
        for i:=1 to n do
                if i mod 2 =0 then write(a[i],' ');
        writeln;
        min:=a[1];
        for i:=2 to n do
                if a[i]<min then min:=a[i];
        writeln('Phan tu nho nhat trong mang:',min);
        tong:=0;
        for i:=1 to n do
                if snt(a[i])=true then tong:=tong+a[i];
        writeln('Tong cac so nguyen to trong mang la:',tong);
        for i:=1 to n-1 do
                for j:=i+1 to n do
                if a[j]>=a[i] then
                begin
                        t:=a[i];
                        a[i]:=a[j];
                        a[j]:=t;
                end;
        write('Mang sau khi sap xep:');
        for i:=1 to n do write(a[i],' ');
        readln
END.

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