Imports System
Public Class exercise73
Public Shared Sub Main()
Console.Write("Cuantos datos reservo: ")
Dim repeticiones As Integer = Convert.ToInt32(Console.ReadLine())
Dim numero As Single
Dim listaNumeros As Single() = New Single(repeticiones - 1) {}
For i As Integer = 1 To repeticiones
Console.Write("Dime numero {0} para guardar en la lista: ", i)
listaNumeros(i) = Convert.ToSingle(Console.ReadLine())
Next
Console.Write("Que numero comprueba en la lista? ")
numero = Convert.ToSingle(Console.ReadLine())
While Console.ReadLine() <> "end"
For i As Integer = 1 To repeticiones
If listaNumeros(i) = numero Then Console.WriteLine("El número {0} existe en la lista", numero)
Next
End While
End Sub
End Class