Дан одномерный массив 10 целых чисел. Найти наибольшую и наименьшую разность между двумя соседними элементами и указать номера этих элементов.

program zz1;

const n = 10; / /задаем количество элементов в массиве

var i, max1, min, i1, i2, j1, j2:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / записываем в массив числа случайным образом

m[i]:=random (21);

for i:=1 to n do / /выводим массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

max1:=0;

for i:=1 to n-1 do / / находим максимальный элемент

if m[i]-m[i+1]>max1 then begin max1:=m[i]-m[i+1]; i1:=i; i2:=i+1; end;

min:=1000000; / /задаем начальное значение для минимального элемента

for i:=1 to n-1 do / / организуем цикл, в котором переберем все числа массива

if m[i]-m[i+1] < min then begin min:=m[i]-m[i+1]; j1:=i; j2:=i+1; end;

writeln ('максимальная разность между соседями = ', max1, ' номера соседей ', i1, ' ', i2); / / выводим ответ

write ('минимальная разность между соседями = ', min, ' номера соседей ', j1, ' ', j2);

end.