program trung_binh;
uses crt;
var X:array[1..1000] of real;
n,i:integer;
t:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('X[',i,']= '); readln(X[i]);
end;
t:=0; i:=1;
while i<=n do
begin
t:=t+X[i];
i:=i+1;
end;
write('Trung binh cua mang la: ',t/n:0:2);
readln;
end.