Впаскале.найти max элемент матрицы и их кол-во.

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   var (m,n): =readinteger2('количество строк и столбцов в матрице: ');   writeln('*** исходная матрица [',m,',',n,'] ***');   var a: =matrrandom(m,n,-50,50);   a.println(4); writeln(4*a.colcount*'-');   var s: =a.rows.selectmany(x-> x);   var max: =s.max;   writeln('максимум ',max, ' встречается ',           s.where(x-> x=max).count,' раз(а)') end. пример количество строк и столбцов в матрице: 6 11 *** исходная матрица [6,11] ***   15  19  26    0 -21 -42    8  -9  -7  21  19   -7 -49  23 -10    8  -9 -50 -31    8 -49 -36   -42 -45 -49 -11    3 -45 -20  45 -29  39  13     9  45 -19    9 -31 -38  29  27  39  13  36   -47  28  44    8 -22  28    7 -25  -3  -9  39     1  11  20  -1  40    5    2 -40  -2  -1  30 максимум 45 встречается 2 раз(а)

2,0 кбайт содержит 6144