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
'