<span>uses</span> crt; <span>var</span> a<span>:</span><span>array</span><span>[</span><span>1</span>..1<span>00</span><span>,</span><span>1</span>..<span>100</span><span>]</span><span>of integer</span>;
i<span>,</span>j<span>,</span>m<span>,</span>n<span>,</span>max<span>,</span>kol<span>:integer</span>;
<span>begin</span><span>writeln</span><span>(</span><span>'Введите размер массива'</span><span>)</span>; <span>readln</span><span>(</span>m<span>,</span>n<span>)</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> m <span>do</span><span>begin</span>
<span>for</span> j<span>:=</span><span>1</span><span>to</span> n <span>do</span>
<span>begin</span>
<span>writeln</span><span>(</span><span>'Введите элементы массива '</span><span>,</span>i<span>,</span><span>'x'</span><span>,</span>j<span>)</span>;
<span>readln</span><span>(</span>a<span>[</span>i<span>,</span>j<span>]</span><span>)</span>;
<span>end</span>; <span>end</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> m <span>do</span><span>begin</span>
<span>for</span> j<span>:=</span><span>1</span><span>to</span> n <span>do</span>
<span>begin</span>
<span>if</span> a<span>[</span>i<span>,</span>j<span>]</span>>max <span>then</span>
max<span>:=</span>a<span>[</span>i<span>,</span>j<span>]</span>;
<span>end</span>;
<span>end</span>; <span>for</span> i<span>:=</span><span>1</span><span>to</span> m <span>do</span><span>begin</span>
<span>for</span> j<span>:=</span><span>1</span><span>to</span> n <span>do</span> <span>begin</span>
<span>if</span> a<span>[</span>i<span>,</span>j<span>]</span><span>=</span>max <span>then</span>
inc<span>(</span>kol<span>)</span>;
<span>end</span>; <span>end</span>;
<span>writeln</span><span>(</span><span>'max='</span><span>,</span>max<span>,</span><span>', встречается '</span><span>,</span>kol<span>,</span><span>' raz.'</span><span>)</span>;
<span>end</span>.