Imports System

Public Module Module1

    Public Sub Main()

        Dim notas as Integer = 0

        Dim cantidadnotas as Integer = 0 

        Dim sumanotas as Integer = 0 

        Dim promedio as Integer = 0         

        For i = 1 To 10

        Console.WriteLine("Ingrese las notas")

        cantidadnotas = Console.ReadLine()

        If notas > 7 Then

            sumanotas = sumanotas + cantidadnotas

            cantidadnotas = cantidadnotas + 1

        End If

    Next i

​

    if cantidadnotas > 0 then

        promedio = sumanotas / cantidadnotas

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

    else

        console.WriteLine("mira bro aca no aprobo ni cristo")

    end if

    End Sub

End Module