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.