{* Задача49 *}

REM basic

' В матрице M определить и поменять местами элементы главной и побочной диагоналей.


CLS

Dim M(4, 4)
       
        PRINT " Исходная матрица "
RANDOMIZE TIMER
For i = 1 To 4
        For j = 1 To 4
                M(i, j) = CInt(RND * 20 - 10)
                PRINT M(i, j);
        Next j
                PRINT
Next i
       
        
For i = 1 To 4
        SWAP M(i, i), M(i, 4 + 1 - i)
Next i
       
        PRINT "Измененная матрица"
For i = 1 To 4
        For j = 1 To 4
                PRINT M(i, j);
        Next j
                PRINT
Next i

End