var

i,n,max,min,tong:integer;

a:array[1..100] of integer ;

tbc:real;

for i:=1 to n do

write('nhap so phan tu mang ');

readln(n);

for i:=1 to n do

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

end;

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

tong:=0;

for i:=1 to n do

tong:=tong+a[i];

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

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

end;

tbc:=tong/n;

write('so max la:',max:8);

write('so min la :',min:8);

write('trung binh cong:',tbc:8:1);

readln;

end.