Imports System
Public Class Program
Public Shared Sub PrintThreeElements(ByVal arr As Integer(), ByVal N 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
For k As Integer = j + 1 To size - 1
If arr(i) + arr(j) + arr(k) = N Then
Console.Write(arr(i) & " " & arr(j) & " " & arr(k) & Environment.NewLine)
Exit For
End If
Next
Next
Next
End Sub
Public Shared Sub Main(ByVal args As String())
Dim arr As Integer() = New Integer() {3, 2, 6, 4, 10, 5, 9, 7, 8, 12}
Dim N As Integer = 24
PrintThreeElements(arr, N)
End Sub
End Class
' run:
'
' 3 9 12
' 2 10 12
' 6 10 8
' 4 8 12
' 10 5 9
' 5 7 12
' 9 7 8
'
