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

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.