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

WHY IT DOESN'T WORK ON TEST 1??????????????????? IT IS RIGHT!!!!!

Послано Reset 23 янв 2007 21:08

what's the f..k????

var n:longint;
res:extended;
a:array[1..1000]of longint;
i:longint;
begin
readln(n);
for i:=1 to n do begin readln(a[i]);res:=res+a[i];end;
res:=res/n;
writeln(res:0:6);
end.

Re: WHY IT DOESN'T WORK ON TEST 1??????????????????? IT IS RIGHT!!!!!

Послано KIRILL(ArcSTU) 23 янв 2007 22:29

All numbers in one line

Re: WHY IT DOESN'T WORK ON TEST 1??????????????????? IT IS RIGHT!!!!!

Послано kutenin 18 мар 2011 14:12

for i:=1 to n do begin readln(a[i]);res:=res+a[i];end;

change it in
for i:=1 to n do begin read(a[i]);res:=res+a[i];end;

and you'll get AC
sorry for my bad English

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