array2D_operation_3.bas

10 REM
11 REM Alokace pole 4x5 prvku
12 REM
20 DIM A(3,4)
30 PRINT DIM(A())
40 REM
41 REM Naplneni prvku pole
42 REM
50 FOR J=0 TO DIM(A(),2)
51   FOR I=0 TO DIM(A(),1)
52     A(I,J) = I*J
53   NEXT I
54 NEXT J
60 REM
61 REM Operace s celym polem - nasobeni prvek po prvku
62 REM
65 A() *= A()
70 REM
71 REM Vypis obsahu pole
72 REM
80 FOR J=0 TO DIM(A(),2)
81   FOR I=0 TO DIM(A(),1)
82     PRINT A(I,J);
83   NEXT I
84   PRINT
85 NEXT J