Подразделы

Другие разделы

Дата и время

28/03/2024 21:22:34

Авторизация

Имя:
Пароль:
Зарегистрироваться
Восстановить пароль
 

printРазбор задачи 3. Изменения температуры (8 класс)

Тема: поиск максимума
Сложность: простая

Требуется найти номер `i` в диапазоне от 2 до `N` при котором значение `|a_i\ -\ a_{i-1}|` максимально (здесь `a_i` – показания термометра). Скобками `||` обозначается модуль (абсолютное значение) числа.
При реализации программы можно обойтись без массива, сохраняя предыдущее введенное значение в переменной t1:
var mdt,dt,mi,i,t1,t2,n:integer;
begin
  read(n);
  read(t1);
  mdt:=0;
  mi:=2;
  for i:=2 to n do
  begin
    read(t2);
    dt:=abs(t2-t1);
    if dt>mdt then
    begin
      mdt:=dt;
      mi:=i;
    end;
    t1:=t2;
  end;
  writeln(mi);
end.
loading