{* Задача155 *}

REM basic

' Задана квадратная матрица. переставить главную и побочную диогонали.


INPUT "Строк: ", n

m = n

Dim A(1 To n, 1 To m)

For I = 1 To n
For J = 1 To m
PRINT "Элемент в строке"; I;
PRINT "и в столбце "; J; "- ";
INPUT "", A(I, J)
Next
Next

PRINT "Исходная матрица:"

For I = 1 To n
For J = 1 To m
PRINT A(I, J);
Next
PRINT
Next


For I = 1 To n
A(I, I) = A(I, I) Xor A(I, n - I + 1)
A(I, n - I + 1) = A(I, I) Xor A(I, n - I + 1)
A(I, I) = A(I, I) Xor A(I, n - I + 1)
Next

PRINT "Преобразованная матрица:"

For I = 1 To n
For J = 1 To m
PRINT A(I, J);
Next
PRINT
Next