Mảng số nguyên

Lập trình để:
- Nhập một dãy số nguyên từ bàn phím.
- Tính tổng và trung bình cộng của dãy đó.
- Tìm max, min trong dãy đó.
- Sắp xếp dãy đó theo trật tự giảm dần, tăng dần và đưa kết quả ra màn hình.

                                                                 Giải

const mang=array[1..10] of integer;
Var a: mang; j,i,s,tmp,k:Longint;
Procedure Sort(g:Integer; var a: mang;)
   Begin
       For i:=1 to g do
          For j:=i+1 to g do
               If a[j]>a[i] Then Begin tmp:=a[i]; a[i]:=a[j]; a[j]:=Tmp; End;
   End;
BEGIN
   For i:=1 to n do
       Begin
           Write('Nhap a(',i,')=: '); Readln(a[i]);
           Sort(i,a); Write('Day cac so da nhap : ');
           For k:=1 to i do Write(a[k],' '); Writeln;
       End;
       For i:=1 to n do s:=s+a[i];
       Writeln('=> Tong cong cua day la: S = ',s);
       Writeln('   > Trung binh cong cua day la: M = ',(s/n):10:1);
       Writeln('   > Phan tu lon nhat la Max = ',a[1]);
       Writeln('   > Phan tu nho nhat la Min = ',a[n]);
       Write('=> Sap xep theo thu tu giam dan nhu sau: ');
       For k:=1 to i do Write(a[k],' '); Readln;
END.