Developing.ru

Дан массив размера N. Найти номера двух ближайших чисел из этого массива.

imax:=1;
for i:=2 to n-1 do
if abs(a-a[i+1])<abs(a[imax]-a[imax+1]) then imax:=i;