{* Задача58 *}

REM basic

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


{N=30
}{Dim a(1 To n) As Integer
}{Dim i As Integer
}{Dim j As Integer
}{Dim min1 As Integer
}{Dim min2 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 min1 As Integer
Dim min2 As Integer
For i = 1 To N
INPUT a(i)
Next i
min = 1
min2 = 2
s = ABS(a(1) - a(2))
For i = 1 To N - 1
For j = i + 1 To N
If ABS(a(i) - a(j)) < s Then
s = ABS(a(i) - a(j))
min = i
min2 = j
End If
Next j
Next i
PRINT min; min2
End