Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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]   Begin
   A[0]:=i;
   A[N+1]:=j
   End;
 End;

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