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

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

wa2 pascal
Послано Dior 8 июн 2014 12:12
var
n,r,c,i,k:integer;

begin
readln(k);
write(' ');
read(n);

writeln;
r:=0;
for i:=1 to n do
begin
read(c);
write(' ');
if r<0 then r:=0;
r:=r+c-k;
end;

if r<0 then writeln('0')
else writeln(r);

end.