Ayuda con algoritmo

[Ka0stj]

Prueba con esto

Código vb:

Dim array() As Integer = {0, 15, 15, 13, 8, 9, 6, 4, 2, 1, 8, 8, 4, 5, 7}
       
        System.Array.Sort(array)
 
        Dim Arreglo_Auxiliar(array.Length - 1) As Integer
        Dim n As Integer = array.Length - 1
        Dim dimension As Integer = (array.Length - 1) Mod 2
        Dim Lista As New List(Of Integer)
 
        For i As Integer = 0 To array.Length - 2
 
            If array(i) <> array(i + 1) Then
                Lista.Add(array(i))
            End If
 
        Next i
        'Agrego el último elemento
        Lista.Add(array(n))
 
        'Erase array
        Dim NewArray(Lista.Count - 1) As Integer
 
        For j As Integer = 0 To Lista.Count - 1
            NewArray(j) = Lista(j)
 
        Next
 
        For x As Integer = 0 To NewArray.Length - 1
            MsgBox(NewArray(x).ToString)
        Next