Program solve;
uses crt;
var n,i,s:integer;
b:array[1..100] of Integer;
Begin
clrscr;
write('Nhap n:'); readln(n);
for i:=1 to n do
begin
write('Nhap b[',i,']:'); readln(b[i]);
s:=s+b[i];
end;
writeln('Tong cac so duong trong day:',s/n:0:2);
readln;
End.