program baigiai;

uses crt;

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

     n,i,j,tg,t,min:integer;

begin

      clrscr;

       write('Nhap so luong phan tu n: ');   readln(n);

       t:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(A[i]);

                     t:=t+A[i];

              end;

       for i:=1 to n-1 do

              for j:=i+1 to n do

                     if A[i]<A[j] then

                            begin

                                   tg:=A[i];

                                   A[i]:=A[j];

                                   A[j]:=tg;

                            end;

       writeln('Phan tu nho nhat la: ',A[n]);

       writeln('Tong cac phan tu cua mang la: ',t);

       write('Day su khi sap xep giam dan la: ');

       for i:=1 to n do write(A[i],' ');

       readln;

end.

uses crt;
var a: array[1..100] of integer;
n,i,s,min,j,t: integer;
begin
clrscr;
S:=0;
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do begin
write('a[',i,']='); readln(a[i]); end;
min:=a[1];
for i:=2 to n do
 if min>a[i] then min:=a[i];
writeln('Phan tu nho nhat la: ',min);
for i:=1 to n do s:=s+a[i];
writeln('Tong phan tu trong mang la: ',s);
for i:=1 to n 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;
write('Mang sap xep theo thu tu giam dan la: ');
for i:=1 to n do write(a[i],' ');
 readln;
end.

đã test mong đc vote!