Дистанционная подготовка: Проблема с задачей №482 "Лавочки"
Проблема с задачей №482 "Лавочки"
от Денис Молдавский - Воскресенье 24 Январь 2016, 15:02
  Здравствуйте!

У меня имеется проблема с задачей №482 "Лавочки". Я написал программу на языке Pascal ABC.NET, программа верно решает данные в примере тесты и составленные мной примеры на локальном компьютере, однако программа, отправленная на сервер, не решает ни одного задания. Может быть, есть какие-то особенности в вводе-выводе? Прошу помочь.

program task2;

var
  l, k, i, a, sl, sr: longint;

begin
  read(l, k);
  sr := l + 1;
  for i := 1 to k do
  begin
    readln(a);
    if (a > sl) and (a <= l div 2) then sl := a;
    if (a < sr) and (a >= l div 2) then sr := a;
  end;
  if sl = sr then
  begin
    write(sl);
  end
  else
  begin
    write(sl, ' ', sr);
  end;
end.