Imports System

​

Public Module Module1

​

    Public Sub Main()

        PrintInOrder()

    end sub

​

    Public Sub PrintInOrder()

        'assume all positives

        Dim nNumbers() As Decimal = {12, 13, 14, 9, 8, 7, 12, 13, 9, 13}

        Dim dMax As Decimal = 0

        Dim dLastmax As Decimal = 100000

        For j as integer = 0 To nNumbers.GetUpperBound(0)

​

        For i as integer = 0 To nNumbers.GetUpperBound(0)

        'Console.WriteLine(nNumbers(i))

                If nNumbers(i) > dMax And nNumbers(i) < dLastMax Then

                    dMax = nNumbers(i)

        Elseif nNumbers(i) = dLastMax then

            Console.WriteLine(nNumbers(i))

                End If

            Next

    'PROBLEM the code does not print out duplicates of maximum values

    'IF there are 2 14s fro example - and  there are - the program needs to print out 14 twice

    'CHANGE the code so it prints out all items in the array in order including duplicates

            dLastmax = dMax 

            dMax = 0

        Next j

    End Sub

End Module

​