Составьте программу поиска чаще всего встречающегося элемента массива С(М,М).

program zz1;

const m = 5;//задаем количество элементов в массиве

var i, max1, k, j, p: integer; // задаем переменные целого типа c: array [1..m, 1..m] of integer; h: array [1..m * m] of integer;

begin for i := 1 to m do // записываем в массив числа случайным образом for j := 1 to m do c[i, j] := random(201); for i := 1 to m do //выводим массив на экран begin for j := 1 to m do write(c[i, j]:5); writeln; end; writeln; // переходим на новую строку для вывода ответа p := 1; for i := 1 to m do // переписываем двумерный массив в одномерный for j := 1 to m do begin h[p] := c[i, j];p := p + 1; end; for i := 1 to m * m do begin for j := 1 to m * m do if h[j] = h[i] then k := k + 1; if k > max1 then begin max1 := k;p := h[i]; end; k := 0; end; writeln(\' чаще других встречается элемент = \', p, \' количество найденных элементов = \', max1); // выводим ответend.