6 lines
160 B
Text
6 lines
160 B
Text
|
10 dim fruta$(2)
|
||
|
|
20 read fruta$(0),fruta$(1),fruta$(2)
|
||
|
|
30 data "apple","orange","lemon"
|
||
|
|
40 print "The length of the array 'fruit$' is ";ubound(fruta$)+1
|
||
|
|
50 end
|