{* Задача72 *}

REM basic

' Составьте программу меняющую местами значения элементов массива А(N,M) симметрично относительно побочной диагонали


INPUT "kol-vo strok=", n
Dim a(n, n)
RANDOMIZE TIMER
PRINT "massiv"
For i = 1 To n
For j = 1 To n
a(i, j) = INT(RND * 20)
PRINT a(i, j);
Next
PRINT
Next
For i = 1 To n
For j = 1 To n - i
SWAP a(i, j), a(n - j + 1, n - i + 1)
Next
Next
PRINT "novyj massiv"
For i = 1 To n
For j = 1 To n
PRINT a(i, j);
Next
PRINT
Next
End