Помогите,пожалуйста)
Дан массив из 20-ти элементов случайных чисел.Найти номера двух соседних элементов наименее отличающихся друг от друга.
Скиньте решение в паскале)
Заранее спасибо)

Пример того, как далеко современный паскаль ушел от того, на котором писали деды и отцы нынешних школьников. Фактически, 2 строки кода вместо 20.

Три сделал потому, что не помещается тут на одной)))

var   arr: array [1.. 20] of integer;   i, ind, diff: integer;begini := 0;ind := 0;diff := maxint;randomize;for i := 1 to 20 dobegin   arr[i] := random(100);   write(arr[i], ' ');end;writeln(' ');for i := 1 to 19 do   if abs(arr[i] - arr[i + 1]) < diff then   begin      diff := abs(arr[i] - arr[i + 1]);      ind := i;   end;writeln(ind, ' ', ind + 1);end.