RosettaCodeData/Task/Array-length/True-BASIC/array-length-1.basic
2023-07-01 13:44:08 -04:00

8 lines
167 B
Text

DIM fruta$(2)
READ fruta$(1), fruta$(2)
DATA "apple", "orange"
LET tamano = UBound(fruta$) - LBound(fruta$) + 1
PRINT "La longitud del array fruta$ es" ; tamano
END