uses crt;
var X : array[1 .. 100] of real;
i, n : byte; S : real;
begin
clrscr;
write('Nhap so n : '); readln(n);
S := 0; for i := 1 to n do
begin write('Nhap so thu ', i ,' : ');
readln(X[i]); S := S + X[i]; end;
write('Trung binh = ', S / n : 2 : 2);
readln
end.