{* Задача57 *}

REM basic

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


{N=30
}{Dim a(1 To n) As Integer
}{Dim i As Integer
}{Dim j As Integer
}{Dim min As Integer
}{Dim min2 As Integer
}{Dim s As Integer
}{For i=1 To N
}{input a(i)
}{Next i
}{...
}{End
}N = 30
Dim a(1 To N) As Integer
Dim i As Integer
Dim j As Integer
Dim min As Integer
Dim min2 As Integer
Dim s As Integer
For i = 1 To N
INPUT a(i)
Next i
If a(1) < a(2) Then
min = 1
min2 = 2
Else
min = 2
min2 = 1
End If
For i = 3 To N
If a(i) < a(min) Then
min2 = min
min = i
ElseIf a(i) < a(min2) Then
min2 = i
End If
Next i
PRINT min; min2
End