11 lines
250 B
Text
11 lines
250 B
Text
' FB 1.05.0 Win64
|
|
|
|
Dim As Integer i, j
|
|
Input "Enter two positive integers, separated by a comma"; i, j
|
|
Dim a(1 To i, 1 To j) As Integer
|
|
a(i, j) = i * j
|
|
Print "a("; Str(i); ","; Str(j); ") ="; a(i, j)
|
|
Erase a
|
|
Print
|
|
Print "Press any key to quit"
|
|
Sleep
|