Program  TenCT;
Uses crt;
Var  A: array[1..50] of longint; {Khai bao mang A}
       i,n,max,min,tong:longint;  tb:real;
Begin
         Clrscr;
         Write('Nhap so n= '); readln(n);
         {Nhap vao day co n phan tu}
         For i:=1 to n do
           begin
              write('A[',i,']= '); readln(A[i]);
           end;
         Writeln;
         {In day so vua nhap}
         For i:=1 to n do
           write(A[i],' ');
         {Tim gia tri lon nhat, nho nhat}
         max:=A[1];
         min:=A [1];
         For i:=2 to n do
           begin
             if A[i]>max then max:=A[i];
             if A[i]<min then min:=A[i];
           end;
         Writeln('Gia tri lon nhat la: ',max);
         Writeln('Gia tri nho nhat la: ',min);
         {Tinh trung binh cong cua day}        
          tong:=0;
         for i:=1 to n do
           tong:=tong+A[i];
         tb:=tong/n;
         Writeln('Trung binh cong cua day la: ',tb:0:1);
         Readln;
End.