Question

How to segregate even and odd numbers of an array (even on left and odd on right) in VB.NET

Answer 1

Imports System

Public Class Segregation
    Public Sub swap(ByVal arr As Integer(), ByVal i As Integer, ByVal j As Integer)
        Dim temp = arr(i)
        arr(i) = arr(j)
        arr(j) = temp
    End Sub

    Public Sub segregateElement(ByVal arr As Integer())
        Dim size = arr.Length
        Dim j = 0

        For i As Integer = 0 To size - 1

            If arr(i) Mod 2 = 0 Then
                swap(arr, j, i)
                j += 1
            End If
        Next
    End Sub

    Public Shared Sub Main()
        Dim obj = New Segregation()
	
        Dim arr As Integer() = {1, 3, 4, 5, 7, 10, 13, 6, 9, 8}
	
        obj.segregateElement(arr)
	
        Console.WriteLine(String.Join(" ", arr))
    End Sub
End Class



' run:
'
' 4 10 6 8 7 3 13 1 9 5
'

 

70+ SQL courses for beginners and professionals