progam Day;

use crt;

var A:array [1..500] of integer;

      n,i,min,T: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         min:=1;

         for i:=1 to n do

         begin

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

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

                  T:=T+A[i];

         end;

         writeln('So nho nhat: ',min);

         writeln('Tong cua day so = ',T);

         write('Trung binh cong cua day = ',T/n:2:2);

         readln

End.

var n,i,min,tong: integer;

      A:array[1..500] of integer;

begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         min:=1;

         for i:=1 to n do

         begin

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

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

                  T:=T+A[i];

         end;

         writeln('So nho nhat: ',min);

         writeln('Tong :',tong);

         writeln('Trung binh cong : ',tong/n:2:2);

         readln;

end.