Разбор задачи 3. Изменения температуры (8 класс)
Тема: поиск максимума
Сложность: простая
Требуется найти номер i в диапазоне от 2 до N при котором значение |ai - ai-1| максимально (здесь ai – показания термометра). Скобками ∣∣ обозначается модуль (абсолютное значение) числа.
При реализации программы можно обойтись без массива, сохраняя предыдущее введенное значение в переменной 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.