Imports System

Public Module Module1

    Public Sub Main()

        dim nota as integer

        dim promedio as integer

        dim cantidadmayor7 as integer

        dim sumamayores7 as integer

        dim maximanota as integer

        nota = 0

        promedio = 0

        cantidadmayor7 = 0

        sumamayores7 = 0

        maximanota = 0

        For i = 1 to 10

        Console.WriteLine("ingrese una nota")

        nota = Console.ReadLine()

        If nota > 7 then 

            sumamayores7 += nota

            cantidadmayor7 += 1

        End if 

        If nota > maximanota Then 

            maximanota = nota

            End If

    Next

    if cantidadmayor7 > 0 then 

        promedio = sumamayores7 / cantidadmayor7

    End if

    Console.WriteLine(" el promedio es" + promedio.ToString())

    Console.WriteLine("la maxima nota obtenida es:" + maximanota.ToString()) 

    End Sub

End Module