16 lines
370 B
Plaintext
16 lines
370 B
Plaintext
//Yabasic tampoco tiene una construcción ForEach.
|
|
//Mediante un bucle FOR iteramos a través de una matriz por índice.
|
|
//READ-DATA se usa para rellenar la matriz
|
|
|
|
dim arreglo(10)
|
|
data 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
|
|
for each = 0 to arraysize(a(),1)
|
|
read arreglo(each)
|
|
next each
|
|
|
|
for each = 0 to arraysize(a(),1)
|
|
print arreglo(each), " ";
|
|
next each
|
|
print
|
|
end
|