Discussion @ 1457. Heating Main @ Timus Online Judge

I' ve ac this problem!

Posted by Charlie 8 Dec 2006 18:36

program ex;
var n,m,i:integer;
    ans:real;
begin
readln (n);
for i:=1 to n do
    begin
      read (m);
      ans:=ans+m;
    end;
ans:=ans/n;
writeln (ans:0:6);
end.

Re: I' ve ac this problem!

Posted by ArcSTU Team#01 8 Dec 2006 23:14

FINE:)

Re: I' ve ac this problem!

Posted by BlackShark 26 Jan 2009 20:58

It's not very good to define m as integer.

Discussion of Problem 1457. Heating Main