Module Module1 Sub Main

Module Module1

    Sub Main()

        'informacion de los integrantes'

        'nombre del curso: Herramienta de programacion III'

        'grupo 1L131   / fecha:10-04-19'

        'Nazareth Navarrete 8-879-2126'

        'Mark Tack 8-946-483'

        'Vs 2013'

        'Taller #1  /descripcion del problema captura y ejecucion del programa'

        'declaracion de variables

        Dim numeros(100), i, frecuencia(10), sumaFrecuencia, sumaValores, Promedio As Integer

        Dim VMayorP, VMenorP As Integer

        'valor,posicion y frecuencia

        Dim datos() As Integer = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}

        'captura de los datos de entrada

        Console.WriteLine("Introduzca numeros entre el 1 y el 10")

        Do

            i = i + 1

            numeros(i) = Console.ReadLine()

        Loop While ((numeros(i) > 0 And numeros(i) <= 10)

        'Finalizacion del programa si ingresa un numero no valido

        If (numeros(i) < 0 Or numeros(i) > 10) Then

            Console.Clear()

            Console.WriteLine("El numero ingresado es incorrecto")

            Console.ReadLine()

            Exit Sub

        End If

        Console.Clear()

        'mensajes de salida en consola'

        Console.WriteLine("Herramienta de programacion III")

        Console.WriteLine("Nazareth Navarrete 8-879-2126")

        Console.WriteLine("Mark Tack 8-946-483")

        Console.WriteLine("")

        'impresion de los elementos ingresados

        Console.WriteLine()

        Console.WriteLine(" LOS VALORES ALMACENADOS FUERON ")

        For x As Integer = 1 To i Step 1

            Console.WriteLine(numeros(x))

            sumaValores = sumaValores + numeros(x)

        Next

        'calculo de promedio de todos los elementos

        Promedio = sumaValores / i

        For x As Integer = 1 To i Step 1

            If (numeros(x) > Promedio) Then

                VMayorP = VMayorP + 1

            ElseIf (numeros(x) < Promedio) Then

                VMenorP = VMenorP + 1

            End If

        Next

        'calculo de frecuencias de cada elemento del arreglo

        Console.WriteLine()

        For x As Integer = 0 To 9 Step 1

            For y As Integer = 0 To 99 Step 1

                If (datos(x) = numeros(y)) Then

                    frecuencia(x) = frecuencia(x) + 1

                End If

            Next

        Next

        'impresion de las frecuencias de cada elemento

        For x As Integer = 0 To 9 Step 1

            Console.WriteLine("El numero " & datos(x) & " y su frecuencia es  " & frecuencia(x))

            sumaFrecuencia = sumaFrecuencia + frecuencia(x)

        Next

        Console.WriteLine()

        Console.WriteLine("La suma de frecuencias es " & sumaFrecuencia & " La suma de todos los valores es  " & sumaValores)

...