Imports System
Public Class Program
Public Shared Function check_elements(ByVal arr As Integer(), ByVal rang_from As Integer, ByVal rang_to As Integer) As Boolean
Dim range As Integer = rang_to - rang_from
Dim size As Integer = arr.Length
For i As Integer = 0 To size - 1
If arr(i) >= rang_from AndAlso arr(i) <= rang_to Then
Dim j As Integer = arr(i) - rang_from
If arr(j) > 0 Then
arr(j) = arr(j) * -1
End If
For k As Integer = 0 To size - 1
Console.Write(arr(k) & " ")
Next
Console.WriteLine()
End If
Next
For i As Integer = 0 To range - 1
If arr(i) > 0 Then Return False
Next
Return True
End Function
Public Shared Sub Main()
Dim arr As Integer() = {1, 4, 5, 2, 3, 7, 8, 3, 9, 4, 4, 0, 6}
Dim rang_from As Integer = 3, rang_to As Integer = 7
If check_elements(arr, rang_from, rang_to) Then
Console.Write("Yes")
Else
Console.Write("No")
End If
End Sub
End Class
' run:
'
' 1 -4 5 2 3 7 8 3 9 4 4 0 6
' 1 -4 -5 2 3 7 8 3 9 4 4 0 6
' -1 -4 -5 2 3 7 8 3 9 4 4 0 6
' -1 -4 -5 2 -3 7 8 3 9 4 4 0 6
' -1 -4 -5 2 -3 7 8 3 9 4 4 0 6
' -1 -4 -5 2 -3 7 8 3 9 4 4 0 6
' -1 -4 -5 2 -3 7 8 3 9 4 4 0 6
' -1 -4 -5 -2 -3 7 8 3 9 4 4 0 6
' Yes
'
