Sub Main()
        Dim n = 10
        Dim ri = -1
        Dim arr(n) As Integer
        For i = 0 To 9
            arr(i) = Int(Rnd() * 100)
        Next i
        For i = 0 To 9
            Console.WriteLine(arr(i))

        Next i
        For i = 0 To n
            If (i = 0) Then
                If arr(i) < arr(i + 1) Then
                    ri = i
                    Exit For
                End If

            ElseIf (i = n - 1) Then

                If arr(i) < arr(i - 1) Then
                    ri = i
                    Exit For
                End If

            ElseIf arr(i) < arr(i - 1) And arr(i) < arr(i + 1) Then
                ri = i
                Exit For
            End If


        Next

        If ri <> -1 Then
            Console.WriteLine("Min " + ri.ToString())
        Else
            Console.WriteLine("нет локального минимума")

        End If
    End Sub