Welcome to collectivesolver - Programming & Software Q&A with code examples. A website with trusted programming answers. All programs are tested and work.

Contact: aviboots(AT)netvision.net.il

Prodentim Probiotics Specially Designed For The Health Of Your Teeth And Gums

Instant Grammar Checker - Correct all grammar errors and enhance your writing

Teach Your Child To Read

Powerful WordPress hosting for WordPress professionals

Disclosure: My content contains affiliate links.

31,166 questions

40,722 answers

573 users

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

Freaking Awesome WordPress Hosting
72 views
asked Dec 1, 2021 by avibootz
edited Dec 1, 2021 by avibootz

1 Answer

0 votes
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
'

 





answered Dec 1, 2021 by avibootz
edited Dec 1, 2021 by avibootz
...