Imports System

Public Module Module1

    Public Sub Main()

        dim indice as integer=0

        dim nro as integer=0

        dim elementos(indice) as double =10

        for indice=1 to 10

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

        nro= integer.parse(console.readline())

        elementos(indice)=nro

    next indice 

    For indice =1 to 10 

        Console.writeline("Mostrando posicion:" + indice.ToString()"dato:" + elementos(indice).tostring())

    if elementos(indice)>10 then 

        console.writeline("El elemento:" + elementos(indice).tostring() "es mayor a 10")

        else

            Console.writeline("El elemento:"+elementos(indice).tostring() "es menor o igual a 10")

            end if

    next indice

    End Sub

End Module