zadach58.BAS

{* Задача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