Question

How to print all distinct pairs from array with specific difference between them in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Sub printPairsWithSpecificDifference(ByVal arr As Integer(), ByVal difference As Integer)
        Dim size As Integer = arr.Length
        
		For i As Integer = 0 To size - 1
            For j As Integer = i + 1 To size - 1
                If arr(i) - arr(j) = difference OrElse arr(j) - arr(i) = difference Then
                    Console.WriteLine(arr(i) & " " & arr(j))
                End If
            Next
        Next
    End Sub

	Public Shared Sub Main()
        Dim arr As Integer() = {25, 16, 8, 12, 20, 17, 0, 4, 21, 26}
        Dim difference As Integer = 4

        printPairsWithSpecificDifference(arr, difference)
    End Sub
End Class





' run:
'
' 25 21
' 16 12
' 16 20
' 8 12
' 8 4
' 17 21
' 0 4
'

 

70+ SQL courses for beginners and professionals