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

Const N=30;Var A:array[0..N+1]of integer; i,j:integer;BeginFor 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.