RosettaCodeData/Task/Multi-dimensional-array/FreeBASIC/multi-dimensional-array-3.b...

5 lines
87 B
Plaintext

Dim As Integer A(5,4,3,2)
A(3,1,0,1) = 3100
A(3,1,0,1) = A(3,1,0,1)+1
Print A(3,1,0,1)