Imports System

Public Module Module1

    Public Sub Main()

        compareNum()

    End Sub

    'subroutine

    Private Sub compareNum()

        'create the array

        Dim num(9) as Decimal

        'other variables

        Dim max,min,l2,h2 as Decimal 

        max = 0

        h2 = 0

        'populate the array

        For i = 0 to 9

            Console.WriteLine("Input a number")

            num(i) = Console.ReadLine()

        Next

        'compare the number

        'find maximum & second high

        For i = 0 to 9

            If num(i) > max Then 'num(i) is bigger

                'first assign max number to h2

                h2 = max

                max = num(i)

            Else If num(i) > h2  And num(i) <> max'check if num(i) is second biggest,otherwise if h2 is right after max, it will fail

                h2 = num(i)

            End If

        Next

        min = num(0)

        l2 = max

        'find minimum & l2

        For i = 0 to 9

            If num(i) < min Then'num(i) is smaller

                min = num(i)

            End If

            If num(i) > min And num(i) < l2 And num(i) <> min Then

                l2 = num(i)

            End If

        Next

​

​

​

        Console.WriteLine("Max is " & max)

        Console.WriteLine("Min is "& min)

        Console.WriteLine("2nd high is " & h2)

        Console.WriteLine("2nd low is " & l2 )

    End Sub

End Module