Question

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

Answer 1

var
   arr: array [1.. 20] of integer;
   i, ind, diff: integer;

begin

i := 0;
ind := 0;
diff := maxint;

randomize;
for i := 1 to 20 do
begin
   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.