Imports System

Public Module Module1

    Public Sub Main()

        ' ingrese la cantidad de facturas a ingresar. Solicitar luego elmonto de cada factura ingresada y calcular el promedio total de las facturas superiores a$10000.

        Dim montofactura As Integer = 0 

        Dim cantidadefacturas As Integer = 0

        Dim sumasuperiores10000 As Integer = 0

        Dim facturasuperiores As Integer = 0

        Dim promedio As Integer = 0

        Console.WriteLine("Por favor ingrese la cantidada de facturas a ingresar")

        For indice = 1 To cantidadefacturas

        Console.WriteLine("Por favor ingrese el monto de la factura  "+ indice.ToString())

        montofactura = Integer.Parse(Console.ReadLine())

        If montofactura > 10000 then

            facturasuperiores = facturasuperiores + 1 

            sumasuperiores10000 =  sumasuperiores10000 + montofactura 

        End If

    Next

        promedio = sumasuperiores10000 / facturasuperiores

        Console.WriteLine("El promedio total de las facturas superiores a 10000 es de: " & facturasuperiores)

        Console.WriteLine("La cantidad de facturas ingresadas superiores a  10000 es de: " & promedio)

    Console.WriteLine("El monto total de las facturas es de: " & sumasuperiores10000 )

    End Sub

End Module