Question

How to find an array element that are divisible by all array elements in VB.NET

Answer 1

Imports System
				
Public Module Module1
	Public Function find_element_divisible_by_all_elements(arr() As Integer) As Integer 
		Dim len As Integer = arr.Length
 
		For i As Integer = 0 To len - 1
			Dim j As Integer
            For j = 0 To len - 1
				If (arr(j) Mod arr(i) <> 0) Then
					Exit For
				End If
			Next
			If (j = len) Then
				return arr(i) 
			End If
		Next
        return -1 
	End Function 
	Public Sub Main()
		Dim arr() As Integer  = { 18, 30, 12, 3, 33, 27, 45 }
				
		Console.Write(find_element_divisible_by_all_elements(arr))
	End Sub
End Module



' run:
'
' 3
'

 

70+ SQL courses for beginners and professionals