{* Задача98 *}

REM basic

' Определить в двумерном массиве максимальный элемент и его координаты, считая, что он единственный.


10 INPUT "Количество строк ="; M%: If M% < 1 Then 10
20 INPUT "Количество столбцов ="; N%: If N% < 1 Then 20
30 Dim AR(M%, N%)
40 For I=1 To M%
50 For J=1 To N%
60 PRINT "Элемент "; I; "-й строки, "; J; "-го столбца = ";
70 INPUT AR(I, J)
80 Next J
90 Next I
100 MAX = AR(1, 1): IMAX = 1: JMAX = 1
110 For I=1 To M%
120 For J=1 To N%
130 If AR(I, J) >= MAX Then MAX = AR(I, J): IMAX = I: JMAX = J
140 Next J
150 Next I
160 PRINT "Значение максимального элемента"; MAX
170 PRINT "Он расположен в строке №"; IMAX; ", столбце №"; JMAX
180 End