Imports System

Public Module Module1

    Public Sub Main()

​

        task3()

    End Sub

​

    Public Sub task1()

        Dim nNumber(10) As Integer

        For i = 1 To 10

            nNumber(i) = i

            Console.Write(nNumber(i) & " ")

        Next

​

        For i = 1 To 10

            nNumber(i) = i * 2

            Console.Write(nNumber(i) & " ")

        Next

​

        For i = 1 To 10

            nNumber(i) = 22 - 2 * i

            Console.Write(nNumber(i) & " ")

        Next

    End Sub

​

    Public Sub task2()

        Dim nNumber(100) As Decimal

        Dim temp As Integer

        Console.Write("input a number")

        temp = Console.ReadLine()

        For i = 1 To temp

            nNumber(i) = Math.Sqrt(i)

            Console.WriteLine("The square root of " & i & " is " & nNumber(i))

        Next

    End Sub

​

    Public Sub task3()

        Dim nNumber(10) As Decimal

        Dim count As Integer = 0

        Dim temp As String = ""

        Dim i As Integer = 1

        Dim nSum As Decimal

        Dim hSofar As Decimal

        Dim lSofar As Decimal

        Dim hCount As Decimal

        Dim lCount As Decimal

        While temp <> "-1"

            If i < 11 Then

                Console.WriteLine("input a number")

                nNumber(i) = Console.ReadLine()

                count = i

            Else

                Console.WriteLine("upto a maximum of 10 numbers can be entered")

            End If

​

            i = i + 1

            Console.WriteLine("continue? (input -1 to end)")

            temp = Console.ReadLine()

        End While

​

        For i = 1 To count

            nSum = nSum + nNumber(i)

        Next

​

        For i = 1 To count

            If hSofar < nNumber(i) Then

                hSofar = nNumber(i)

            End If

        Next

​

        For i = 1 To count

            If lSofar > nNumber(i) Then

                lSofar = nNumber(i)

            End If

        Next

​

        For i = 1 To count

            If hSofar = nNumber(i) Then

                hCount = hCount + 1

            End If

        Next

​

        For i = 1 To count

            If lSofar = nNumber(i) Then

                lCount = lCount + 1

            End If

        Next

​

        Console.WriteLine("The Sum of all numbers is:" & nSum)

        Console.WriteLine("The Count of the numbers entered is:" & count)

        Console.WriteLine("The Highest Value is:" & hSofar)

        Console.WriteLine("The Lowest Value is:" & lSofar)

        Console.WriteLine("The number of items in the array shared the highest value is:" & hCount)

        Console.WriteLine("The number of items in the array shared the lowest value is:" & lCount)

        Console.ReadLine()

​

    End Sub

End Module