Imports System

Public Module Module1

    Public Sub Main()

            Dim ContarMayores35 As Integer = 0

        Dim ContarMenores35 As Integer = 0

        Dim Indice As Integer = 0

        Dim IndiceMayor35 as Integer = 0

        Dim Vector(10) As Integer

        Dim Random As New Random()

    For Indice=1 To 10

        Vector(Indice) = Random.Next(20, 50)

    Next Indice

​

    For Indice=1 To 10

    If Vector(Indice)>=35 Then

        ContarMayores35 = ContarMayores35+1

        Console.WriteLine("El número " + Vector(Indice).ToString() + " es mayor o igual a 35")

    Else

        ContarMenores35 = ContarMenores35+1

        Console.WriteLine("El número " + Vector(Indice).ToString() + " es menor a 35")

    End If

    Next Indice

​

        Dim VectorMayor35(ContarMayores35) As Integer

        Dim VectorMenor35(ContarMenores35) As Integer

        IndiceMayor35 = 1

​

    For Indice=1 to 10

    If Vector(Indice)>=35 Then

        VectorMayor35(IndiceMayor35) = Vector(Indice)

        IndiceMayor35 = IndiceMayor35+1

    End If

    Next Indice

​

        Console.WriteLine("")

        Console.WriteLine("Según el vector de números mayores o iguales a 35:")

    For Indice=1 To ContarMayores35

        Console.WriteLine("El número " + Vector(Indice).ToString() + " es mayor o igual a 35") 

    Next Indice

​

        Console.WriteLine("")

        Console.WriteLine("Según el vector de números menores a 35:")

    For Indice=1 To ContarMenores35

        Console.WriteLine("El número " + Vector(Indice).ToString() + " es menor a 35") 

    Next Indice

​

    End Sub

End Module