{* Задача105 *}

REM basic

' Ввести двумерный массив N x N. Определить минимальное значение для элементов, лежащихна главной диагонали, и максимальные значения для элементов, лежащих на побочной диагонали.


10 INPUT "Количество строк и столбцов ="; N%: If N% < 3 Then 10
20 Dim AR(N%, N%)
30 For I=1 To N%
40 For J=1 To N%
50 PRINT "Элемент "; I; "-й строки, "; J; "-го столбца = ";
60 INPUT AR (I, J)
70 Next J, I
80 MIN = AR(1, 1): MAX = AR(1, N%)
90 For I=2 To N%
100 If AR(I, I) < MIN Then MIN = AR(I, I)
110 If AR(I, N% - I + 1) < MAX Then MAX = AR(I, N% - I + 1)
120 Next I
130 PRINT "Минимум на главной диагонали равен"; MIN
140 PRINT "Максимум на побочной диагонали равен"; MAX
150 End