{* Задача20 *}

REM basic

'
'

Найти наименьшие элементы, номера строк и столбцов, в которых они
' расположены, матриц:

'

A(10, 15), B(15, 12)

10 CLS : Dim Z(30, 30): INPUT "A(x,y)?", X, Y: n = X: m = Y
30 GoSub 1000
40 INPUT "B(k,l)?", k, l: n = k: m = l
50 GoSub 1000
60 GoTo 1050
1000 If n > 30 Or m > 30 Then Return
1005 MIN = 1E+10
1010 For I = 1 To n: For J = 1 To m
1020 Z(I, J) = INT(RND(X) * 200) - 100: PRINT Using "####"; Z(I, J);
1025 If Z(I, J) < MIN Then MIN = Z(I, J): Imin = I: Jmin = J
1030 Next J: PRINT : Next I
1035 PRINT "МИН. ЭЛЕМЕНТ МАТРИЦЫ  - "; MIN, "СТРОКА  - "; Imin, "СТОЛБЕЦ  - "; Jmin: PRINT
1040 Return
1050 End