Imports System
Public Class Program
Private Shared Function getSplitIndex(ByVal arr As Integer()) As Integer
Dim size As Integer = arr.Length
Dim leftSum As Integer = 0
For i As Integer = 0 To size - 1
leftSum += arr(i)
Dim rightSum As Integer = 0
For j As Integer = i + 1 To size - 1
rightSum += arr(j)
Next
If leftSum = rightSum Then Return i + 1
Next
Return -1
End Function
Private Shared Sub printSplitParts(ByVal arr As Integer())
Dim size As Integer = arr.Length
Dim splitIndex As Integer = getSplitIndex(arr)
If splitIndex = -1 OrElse splitIndex = size Then
Console.Write("No equal parts")
Return
End If
For i As Integer = 0 To size - 1
If splitIndex = i Then Console.WriteLine()
Console.Write(arr(i) & " ")
Next
End Sub
Public Shared Sub Main()
Dim arr1 As Integer() = {1, 2, 3, 4, 5, 5}
printSplitParts(arr1)
Console.WriteLine()
Dim arr2 As Integer() = {1, 2, 3, 4, 5, 5, 1}
printSplitParts(arr2)
End Sub
End Class
