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

Обсуждение задачи 1010. Дискретная функция

var s,before,bf,i,n:longint;
    max:comp;
begin
 readln(n);
 readln(bf);
 readln(before);
 max:=before*1.0-bf;
 s:=1;
 for i:=3 to n do
  begin
   readln(bf);
   if bf*1.0-before>max then
    begin
     s:=i-1;
     max:=bf*1.0-before;
    end;
   before:=bf;
  end;
 writeln(s,' ',s+1);
end.
For some strange reason, only c++ sources get AC