Задание 6. Вычисление количества элементов двумерного массива, равных максимуму

Составьте программу, выясняющую, сколько раз встречается в двухмерном массиве А (N, М) наибольший элемент.

Program matrix_6;

var A: array [ 1.. 10, 1.. 10 ]. of real;

i, g, n, m, kol: integer;

max: real;

begin

{Ввод элементов массива}

Writeln ('Введите количество строк матрицы');

Read (n);

Writeln ('Введите количество столбцов матрицы');

Read (m);

Writeln ('Введите элементы матрицы');

for i: = 1 to n do

for j: = 1 to m do Read(a[i, j]);

{Нахождение максимального элемента}

max: = a [ 1, 1 ];

for i: = 1 to n do

for j: = 1 to m do

if a[ i, j ] > max then max: = a [ i, j ];

kol: = 0

for i: = 1 to n do

for i: = 1 to m do

if a[ i, j ] = max then kol: = kol + 1;

{Вывод результата}

Writeln ('Количество элементов, равных максимальному, ', kol)

end.