uses crt;

var a:array [1..100] of real;

     i: integer;

     n,max,min,s: real;

begin

        clrscr;

       write('Nhap n = '); readln(n);

       writeln('Nhap cac phan tu cua n la: ');

       for i:=1 to n do 

       begin

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

                s:=s+a[i];

       end;

       max:=a[1]; min:=a[1];

       for i:=2 to n do

       begin

           if max < a[i] then max:=a[i];

           if min > a[i] then min:=a[i];

       end;

       writeln('Gia tri lon nhat trong mang la: ',max);

       writeln('Gia tri nho nhat trong mang la: ', min);

       writeln('Tong gia tri cac phan tu trong mang la: ',s);

       writeln('Gia tri trung binh cua cac phan tu trong mang la: ',s/n);

       readln;

end.

program phuongt;
uses crt;
  var A: array[1..500] of integer;
        i, n, max, min, s: integer;
begin
        clrscr;
        write('Nhap n = '); readln(n);
        s:=0;
        for i:=1 to n do
        begin
                write('A[', i, '] = '); readln(A[i]);
                s:=s+A[i];
        end;
        max:=A[1];
        min:=A[1]:
        for i:=1 to n do
        begin
                if max<A[i] then max:=A[i];
                if min>A[i] then min:=A[i];
        end;
        writeln('Gia tri lon nhat: ', max);
        writeln('Gia tri nho nhat: ', min);
        writeln('Tong cac gia tri: ', s);
        write('Gia tri trung binh: ', s/n:3:2);
        readln
end.