Imports System

Public Module Module1

    Public Sub Main()

         'Declaring the variables

        Dim runner(7) As String

        Dim times(7) As Double

        Dim average As Double

        'Looping the question round

        For x = 0 To 7

        Console.WriteLine("What are the names of the runners?")

            runner(x) = Console.ReadLine

        Console.WriteLine("What were their times for the 100m?")

            times(x) = Console.ReadLine

        Next

        'Looping the names and their times

        For a = 0 To 7

            Console.WriteLine(runner(a) & "-" & times(a))

        Next

        'sorting the times to display the fastest time, the slowest and the average

        Array.Sort(times)

        Console.WriteLine(times(0) & "  the fastest time")

        Console.WriteLine(times(7) & "  the slowest time")

        average = times(0) + times(1) + times(2) + times(3) + times(4) + times(5) + times(6) + times(7)

        average = average / 8

        Console.WriteLine("The average is " & average)

        Console.ReadLine()

    End Sub

End Module