{* Задача32 *}

REM basic

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


CLS
INPUT "Введите число элементов массива"; n
For i=1 To n
For j=1 To n
PRINT "Введите a("; i; j; ")"
INPUT a(i, j)
Next j
Next i
PRINT "Исходная матрица"
For i=1 To n
For j=1 To n
PRINT a(i, j);
Next j
PRINT
Next i
max=a(1,1)
For i=1 To n
If i+j=n+1 And a(i,j)>max Then max=a(i,j)
Next i
PRINT  "Максимальный элемент побочной диагонали max="; max
End