Дан одномерный массив 10 целых чисел.

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

var a:array [1 ... 10] of integer;

maxi, mini, max, min:integer;

Begin

maxi:=2;

mini:=2;

for i: = 1 to 10 do Begin

read (a[i]) ;

if i=2 then begin

max = a[i]-a[i-1];

mix = a[i]-a[i-1];

end;

if i>2 and max < a[i]-a[i-1] then begin

max = a[i]-a[i-1];

maxi = i;

end;

if i>2 and min > a[i]-a[i-1] then begin

mix = a[i]-a[i-1];

mixi = i;

end;

end;

writeln ('min: a[', mini,'] - a[', mini-1,'] = ', min) ;

writeln ('max: a[', maxi,'] - a[', maxi-1,'] = ', max) ;

End.