program ct;

uses crt;

var i,n,s,j,tam:integer; tbc:real;

A:array[1..100[ of integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

for i:= 1 to n-1 do

for j:=i+1 to n do

   if A[i]<A[j] then

begin

tam:=A[i];

A[i]:=A[j];

A[j]:=tam;

end;

writeln;

write('day so sau khi sap xep la:');

for i:=1 to n do

write(A[i]:3);

s:=0;

for i:=1 to n do

begin

s:=s+A[i];

tbc:=s/n;

end;

writeln('trung binh cong la:',tbc:10;2)

readln

end.

program bai_giai;
uses crt;
var A:array[1..1000] of integer;
    n,i,j,t,tg:integer;
begin
    clrscr;
    write('Nhap 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;
    write('Day giam dan: ');
    for i:=1 to n do write(A[i],' ');
    writeln;
    write('Gia tri trung binh cua day: ',t/n:0:2);
    readln;
end.