RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/BASIC256/create-a-two-dimensional-array-at-runtime.basic

8 lines
197 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
arraybase 1
input integer "Enter one positive integer: ", i
input integer "Enter other positive integer: ", j
dim a(i, j)
a[i, j] = i * j
print "a("; string(i); ","; string(j); ") = "; a[i, j]
end