Module Module1

    Sub Main()
        Dim names(4) As String
        Dim avg(4) As Double

        Dim grade As String = ""
        Dim sum As Double = 0
        Dim count As Integer = 0
        Dim max As Short = 0

        For i As Integer = 0 To names.Length - 1
            Console.WriteLine("Εισάγετε το όνομα του μαθητή ")
            names(i) = Console.ReadLine()
            Console.WriteLine("Εισάγετε το βαθμό του μαθητή ή τη τελεία για τέλος ")
            grade = Console.ReadLine()
            Do While grade <> "."
                sum = sum + CDbl(grade)
                Console.WriteLine("Εισάγετε το βαθμό του μαθητή ή τη τελεία για τέλος ")
                grade = Console.ReadLine()
                count += 1
            Loop
            avg(i) = sum / count - 1

        Next
        For i As Integer = 0 To names.Length - 2
            If avg(i) > avg(i + 1) Then
                max = i
            End If
        Next
        Console.WriteLine("Ο {0} έχει το μεγαλύτερο μέσο όρο με βαθμό {1} ", names(max), avg(max))
        Console.ReadKey()
    End Sub

End Module
