CLS
PRINT
PRINT TAB(18); "Нахождение наибольшего элемента"
PRINT TAB(15); "среди стоящих на главной и побочной "
PRINT TAB(25); "диагоналях"
PRINT
1 : PRINT
PRINT TAB(15); "Введите размер квадратной матрицы ... ";
'INPUT tab(15) "Введите размер квадратной матрицы ... "; n
INPUT "", n
IF n < 0 THEN
PRINT
PRINT TAB(15); "Введите положительное число!"
GOTO 1
END IF
      PRINT
DIM a(n, n)
PRINT TAB(20); "Заполнение матрицы:"
PRINT
FOR i = 1 TO n
FOR j = 1 TO n
PRINT TAB(15); "("; i; ","; j; ")"; " элемент массива...";
INPUT " ", a(i, j)
NEXT j
NEXT i
      FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j);
NEXT j
PRINT
NEXT i
      max = -32768
FOR i = 1 TO n
FOR j = 1 TO n
IF i = j THEN
IF a(i, j) > max THEN max = a(i, j)
END IF
NEXT j
NEXT i
PRINT TAB(15); "Максимальный элемент на главной диагонали равен "; max
PRINT
max = o
      FOR i = 1 TO n
      FOR j = 1 TO n
IF i + j - 1 = n THEN
IF a(i, j) > max THEN max = a(i, j)
END IF
      NEXT j
NEXT i
PRINT TAB(15); "Максимальный элемент на побочной диагонали равен "; max