Imports System

Public Module Module1

    Public Sub Main()

        Dim datoactual As Double

        Dim nro As Integer

        Dim posicion As Integer

        Dim tamanio As Integer

        tamanio = 10

        Dim vectoringreso(tamanio) As Integer

        For posicion=1 To tamanio

            Console.WriteLine("Por favor ingrese un nro")

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

            vectoringreso(posicion) = nro

        Next posicion

        For posicion=1 To tamanio

            Console.WriteLine("El nro ingresado es: ",vectoringreso(posicion))

        Next posicion

        For posicion=1 To tamanio

            datoactual = vectoringreso(posicion)

            If datoactual>10 Then

                Console.WriteLine("El dato ",datoactual," es mayor que 10")

            Else

                Console.WriteLine("El dato ",datoactual," es menor o igual a 10")

            End If

        Next posicion

    End Sub

End Module