{* Задача81 *}

REM basic

' Дан массив A(N, M), состоящий из случайных двухзначных чисел. Вывести сам массив и количество элементов, кратных 3., а также минимальный элемент массива.


CLS : INPUT "Vvedite M(stolbc): ", M
      INPUT "Vvedite N(stroki): ", N
Dim A(M, N) As Integer
  RANDOMIZE TIMER
  For iy = 1 To N
     For ix = 1 To M
     A(ix, iy) = RND * 89 + 10
     PRINT A(ix, iy);
     Next: PRINT
  Next
  Min = 100   
  For iy = 1 To N
     For ix = 1 To M
        If A(ix, iy) < Min Then Min = A(ix, iy)
        If A(ix, iy) Mod 3 = 0 Then k = k + 1
  Next ix, iy
  PRINT "Minimalnyj element :"; Min
  PRINT "Kratnyh elementov  :"; k
End