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

Обсуждение задачи 1296. Гиперпереход

why my sollution take WA on test #3
Послано Pavel Sergeev 17 ноя 2009 18:17
var
p:int64;
i,n,x:integer;
max:int64;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
readln(p);
max:=p;
for i:=1  to n-1 do
  begin
  readln(x);
  if x>=p+x then p:=x else p:=p+x;
  if p>max then max:=p;
  end;
if max<0 then  writeln(0) else writeln(max);
end.

Edited by author 18.11.2009 00:20

Edited by author 18.11.2009 00:21

Edited by author 18.11.2009 00:23
Re: why my sollution take WA on test #3
Послано iliya785 27 дек 2013 07:02
check: n = 0