15 lines
224 B
QBasic
15 lines
224 B
QBasic
|
5 DIM A(50,15)
|
||
|
|
10 FOR I = 1 TO 50
|
||
|
|
20 FOR J = 1 TO 15
|
||
|
|
30 LET A(I,J) = I + J
|
||
|
|
35 REM PRINT I,J, A(I,J)
|
||
|
|
40 NEXT J
|
||
|
|
50 NEXT I
|
||
|
|
100 FOR I = 1 TO 50
|
||
|
|
110 FOR J = 1 TO 15
|
||
|
|
120 PRINT A(I,J),
|
||
|
|
130 NEXT J
|
||
|
|
140 PRINT
|
||
|
|
150 NEXT I
|
||
|
|
999 END
|