RosettaCodeData/Task/Create-a-two-dimensional-ar.../BASIC256/create-a-two-dimensional-ar...

8 lines
197 B
Plaintext

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