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!

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

      n, j, i: byte;

      min, t: integer;

      S: longint;

Begin

     Write('n = '); readln(n); s:=0;

     For i:=1 to n do

         Begin

             Write('a[', i, '] = '); readln(a[i]);

             If i=1 then min:=a[1]

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

             S:=s+a[i];

         End;

     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('gtnn: ', min);

     Write('tong: ', s);

     Readln

End.