Question

How to check if an array contains a pair of numbers whose product is even in VB.NET

Answer 1

Imports System

' A product of a pair of integers will always be even if at least 1 of them is even

Friend Class Program
    Public Shared Function arrayContainsAPairOfEvenProduct(ByVal arr As Integer()) As Boolean
        Dim oddCount As Integer = 0

        For i As Integer = 0 To arr.Length - 1

            If arr(i) Mod 2 = 0 Then
                Return True
            End If
        Next

        Return False
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim arr As Integer() = New Integer() {1, 1, 3, 3, 5, 5, 8, 9, 9, 11} ' 8 * ? = Even
        
        Console.WriteLine(arrayContainsAPairOfEvenProduct(arr))
    End Sub
End Class


 
   
   
' run:
'
' True
'

 

70+ SQL courses for beginners and professionals