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

Обсуждение задачи 1642. Одномерный лабиринт

WA 18
Послано coolhackermasya 13 мар 2017 23:06
var
b,a,i,c,n,d,an,k,x:integer;  // many variables from other programms...
dev:boolean;
s:string;
begin
read(k,n);
dev:=true;
b:=1001;
//didn't no about abs
if n<0 then x:=-1;
if n>0 then x:=1;
for i:=1 to k do
begin
read(a);
if (0<a*x) and (a*x<n*x) and dev then begin s:=('Impossible'); dev:=false end; // can't reach the end
if abs(a)<b then b:=abs(a);      //nearest obsacle to start point
end;
if dev then // output
begin
if n>0 then writeln(n,' ',n+b*2);
if n<0 then writeln(abs(n)+2*b,' ',abs(n));
end
else
writeln(s);
end.




**********Can't understand what's wrong************
Re: WA 18
Послано Daniel Paleyev [SESC] 17 окт 2017 19:14
input :
15 23
252 33 215 789 1000 123 -125 29 -45 -450 121 -555 -72 120 123
output :
23 113