{* Задача114 *}

REM basic

' Двухмерные массивы. Минимальный элемент на пересечении строк и столбцов


CLS  
   INPUT "Vvedite kol-vo strok   : ", m
  INPUT "Vvedite kol-vo stolbcov: ", n
 
Dim A(n, m)
 
  For iy = 1 To m
     For ix = 1 To n
        PRINT "  Vvedite element, stroka="; iy; "  stolbec="; ix;
        INPUT " : ", A(ix, iy)
     Next
  Next
 
 
 Min = A(1, 1): x = 1: y = 1
 For iy = 1 To m
    For ix = 1 To n
       If A(ix, iy) < Min Then Min = A(ix, iy): x = ix: y = iy
       PRINT A(ix, iy);
    Next: PRINT
 Next
 PRINT "Stolbec : "; x
 PRINT "Stroka  : "; y
End