Question

Напишите программу, которая заполняет массив из 20 элементов случайными числами на отрезке [100; 200] и находит в нём пару соседних элементов, сумма которых минимальна.
На питон

Answer 1

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

i,min,ind:integer;

begin  

randomize;

for i:=1 to 20 do begin

a[i]:=random(100)+100;

write(a[i]:4);

end;

writeln;

min:=a[1]+a[2];

for i:=2 to 19 do

if a[i]+a[i+1]<min then  

begin  

min:=a[i]+a[i+1];

ind:=i;

end;

write('Сумма минимальна между ',ind,' и ', ind+1, ' элементом');

end.