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

5 lines
87 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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)