Public Sub Main()
Dim aNombres As String[] = ["Arquímedes", "", "Cai Lun", "", "Leonardo da Vinci", "", "Galileo Galilei", "Isaac Newton", "Blaise Pascal", ""]
Dim i As Integer
While i < aNombres.Count
If aNombres[i] = Null Then aNombres.Remove(i)
Inc i
Wend
' Vamos a ver...
For Each s As String In aNombres
Print s
Next
End
Public Sub Main()
Dim myarray As String[] = ["Arquímedes", "", "Cai Lun", "", "Leonardo da Vinci", "", "Galileo Galilei", "Isaac Newton", "Blaise Pascal", ""]
For idx As Integer = myarray.max DownTo 0
If myarray[idx] = Null Then myarray.Remove(idx)
Next
For Each s As String In myarray
Print s
Next
End