Обсуждение @ 1787. Поворот на МЕГУ @ Timus Online Judge

wa6 pascal

Послано maksimla 23 сен 2012 01:05

var k,n,i,sum,s:integer;
begin
readln(k,n);
sum:=0;
for i:=1 to n do
begin
readln(s);
sum:=sum+s-k;
if sum<0 then sum:=0;
end;
//sum:=sum+s-k;
//if sum<0 then sum:=0;
writeln(sum);
readln;
end.

whot wrong?

Re: wa6 pascal

Послано Salimov Albert 6 ноя 2012 00:24

Edited by author 06.11.2012 01:22

Re: wa6 pascal

Послано alexProgrammer 6 ноя 2012 10:27

maksimla писал(a) 23 сентября 2012 01:05

var k,n,i,sum,s:integer;
begin
readln(k,n);
sum:=0;
for i:=1 to n do
begin
read(s); // here must be read. not readln;
sum:=sum+s-k;
if sum<0 then sum:=0;
end;
//sum:=sum+s-k;
//if sum<0 then sum:=0;
writeln(sum);
end.

whot wrong?

Обсуждение задачи 1787. Поворот на МЕГУ