Обсуждение @ 1457. Теплотрасса @ Timus Online Judge

Online Judge	Задачи	Авторы	Соревнования
О системе Часто задаваемые вопросы Новости сайта Форум Ссылки	Архив задач Отправить на проверку Состояние проверки Руководство	Регистрация Исправить данные Рейтинг авторов	Текущее соревнование Расписание Прошедшие соревнования Правила

вернуться в форум

Обсуждение задачи 1457. Теплотрасса

I' ve ac this problem!

Послано Charlie 8 дек 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!

Послано ArcSTU Team#01 8 дек 2006 23:14

FINE:)

Re: I' ve ac this problem!

Послано BlackShark 26 янв 2009 20:58

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