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

Обсуждение задачи 1636. Штрафное время

Where is the error ?? 9 test fails . Pascal . Где ошибка?? 9 тест не проходит. Паскаль.
Послано Andriy 1 ноя 2014 13:10
var t1,t2,i,k,q:integer;
a:array [1..10000000] of integer;
begin
read(t1,t2);
for i:=1 to 10 do
        read(a[i]);
for i:=1 to 10 do
        begin
        if a[i]>0 then k:=k+a[i];
        end;
if t1<t2 then
        begin
        q:=(k*20)+t1;
        if q<=t2 then write('No chance.')
        else if q>t2 then write('Dirty debug :(');
        end
else if t1>=t2 then
        begin
        write('No chance.');
        end;
end.

Edited by author 01.11.2014 13:12

Edited by author 01.11.2014 13:12
Re: Where is the error ?? 9 test fails . Pascal . Где ошибка?? 9 тест не проходит. Паскаль.
Послано IlushaMax 25 мар 2016 20:56
Why SUCH BIG MASSIVE if 10 elements will be used
Re: Where is the error ?? 9 test fails . Pascal . Где ошибка?? 9 тест не проходит. Паскаль.
Послано ToadMonster 26 мар 2016 02:41
What is "k" initial value?