Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Опишите на языке программирования алгоритм, который находит и выводит номера двух элементов массива, сумма которых минимальна.

Answer 1

Const
 N=30;

Var
 A:array[0..N+1]of integer;
 i,j:integer;

Begin
For i:= 1 to N do
 A[i]:=random(-7,7);
A[0]:=1;
A[N+1]:=2;
For i:= 1 to N do
 Begin
 Write(A[i],' (',i,'), ');
 For j:= 1 to N do
  if i<>j then
  if A[i]+A[j]<A[A[0]]+A[A[N+1]] then
   Begin
   A[0]:=i;
   A[N+1]:=j
   End;
 End;

WriteLn;
WriteLn(A[0], ' , ',A[N+1]);
End.