Question

How to rearrange array and set even indexed values to be smaller than odd indexed values in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Sub RearrangeOddEven(ByVal arr As Integer())
        For i As Integer = 0 To arr.Length - 1 - 1
            If i Mod 2 = 0 AndAlso arr(i) > arr(i + 1) Then
                Dim temp As Integer = arr(i)
                arr(i) = arr(i + 1)
                arr(i + 1) = temp
            End If

            If i Mod 2 <> 0 AndAlso arr(i) < arr(i + 1) Then
                Dim temp As Integer = arr(i)
                arr(i) = arr(i + 1)
                arr(i + 1) = temp
            End If
        Next
    End Sub

    Public Shared Sub Main(ByVal args As String())
        Dim arr As Integer() = New Integer() {1, 2, 3, 5, 8, 6, 7, 4}
	
        RearrangeOddEven(arr)
	
        Console.WriteLine(String.Join(" ", arr))
    End Sub
End Class




' run:
'
' 1 3 2 8 5 7 4 6
'

 

70+ SQL courses for beginners and professionals