{* Задача3 *}

REM basic

' Подсчитать, сколько раз встречается в заданной целочисленной матрице A(N, M) максимальное по величине число.


CLS : INPUT "Количество строк - ", N
INPUT "Количество столбцов - ", M
Dim A(N, M) 
For i = 1 To N 
  For j = 1 To M
    PRINT "A(" ; i ; ", " ; j ; ") = " ; : INPUT A(i, j)
  Next j
Next i

CLS : PRINT "Матрица А"
For i = 1 To N 
  For j = 1 To M
    PRINT A(i, j) ;
  Next j
  PRINT
Next i : PRINT

Amax = A(1, 1) 
For i = 1 To N
  For j = 1 To M
    If A(i, j) > Amax Then Amax = A(i, j)
  Next j
Next i

K = 0 
For i = 1 To N
  For j = 1 To M
    If A(i, j) = Amax Then K = K + 1
  Next j
Next i

PRINT "Максимальное число " ; Amax ;
PRINT " встречается " ; K ; " раз(a)"
End