zadach56.BAS

{* Задача56 *}

REM basic

' Записать в обратном порядке матрицу M


CLS

Dim M(3, 4), M2(3, 4)
                
For i = 1 To 3
        For j = 1 To 4
        k = k + 1
                M(i, j) = k
                PRINT M(i, j);
        Next j
        PRINT
Next i: PRINT
    
      For i = 1 To 3
        For j = 1 To 4
                M2(i, j) = M(3 + 1 - i, 4 + 1 - j)
        Next j
Next i
  

For i = 1 To 3
        For j = 1 To 4
                M(i, j) = M2(i, j)
                PRINT M(i, j);
        Next j
        PRINT
Next i

End