program b1 ;

uses crt;
 var a : array[1..100] of longint ;
 tb : real ;
 n, i , min : longint ;
   begin
   clrscr;
     write('N=');
      readln(n);
 for i := 1 to n do
     begin
    write('a[',i,']=');
    readln(a[i]);
    tb := tb + a[i];
     end ;
    tb:=tb / n ;
 min := a[1];
    for i := 1 to n do
        if min > a[i] 
         then min := a[i];
    write('Cac so vua nhap la: ');
        for i := 1 to n do
            write(a[i],' ');
    writeln ;
    writeln('Trung binh cong la: ',tb:3:2);
    writeln('Phan tu nho nhat la: ',min);
        end .