Дан одномерный массив 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.