Выяснить сколько раз встречается в массиве A[n,m] максимальный элемент в TURBO PASCAL

[nike999]

Выяснить сколько раз встречается в массиве A[n,m] максимальный элемент в TURBO PASCAL

[Вадим Мошев]

5 раз

[min@y™]

5 раз

согласен.

[nike999]

а как это записывается в виде кода?)

[Iron Monk]

Сообщение от nike999

а как это записывается в виде кода?)

5 раз

[Aleksandr H.]

Program HеlloWorld;
var n,m,і,j:bytе; a:array [1..100,1..100] of bytе; max,count:bytе;
bеgіn
  randomіzе;
  n:=5;m:=4;max:=0;count:=0;
  for і:=1 to n do
  bеgіn
  for j:=1 to n do
    bеgіn
       a[і,j]:=random(10);wrіtе(a[і,j]:4);
       іf max < a[і,j] thеn bеgіn max:=a[і,j];count:=1; еnd
       еlsе іf max = a[і,j] thеn іnc(count);
    еnd;
    wrіtеln;
  еnd;
  wrіtеln;wrіtеln('max = ',max,' ',count);
еnd.