{* Задача130 *}

REM basic

' Найти максимальный элемент среди минимальных элементов строк двумерного массива


CLS
RANDOMIZE TIMER
INPUT "vvedite m"; m
INPUT "vvedite n"; n
Dim a(m, n)
For i = 1 To m: For j = 1 To n
        a(i, j) = INT(RND * 201 - 100)
        PRINT a(i, j);
Next: PRINT: Next
max = -1E38
For i = 1 To m: min = a(i, 1): For j = 1 To n
        If a(i, j) = max Then max = min: i2 = i1: j2 = j1
Next
PRINT String$(80, 196); max, "a("; i2; ","; j2; ")"
End