Дан двумерный массив. Найти максимальный элемент и проверить, сколько раз он встречается...

Question

Дан двумерный массив. Найти максимальный элемент и проверить, сколько раз он встречается в каждой строке.

Answer 1

uses crt; var a:array[1..100,1..100]of integer;

i,j,m,n,max,kol:integer;

beginwriteln('Введите размер массива'); readln(m,n);

for i:=1to m dobegin      

for j:=1to n do    

 begin          

writeln('Введите элементы массива ',i,'x',j);          

readln(a[i,j]);      

end; end;

for i:=1to m dobegin      

for j:=1to n do      

begin        

  if a[i,j]>max then        

  max:=a[i,j];    

 end;

end; for i:=1to m dobegin    

 for j:=1to n do      begin          

if a[i,j]=max then        

  inc(kol);    

 end; end;

writeln('max=',max,', встречается ',kol,' raz.');

end.

Answer 2

var

  a:array[1..100, 1..100] of integer;

  n, m,  count, i, j, max:integer;

begin

  randomize;

  write('m = ');

  readln(m);

  write('n = ');

  readln(n);

  writeln('Исходный массив :');

  for i := 1 to m do

  begin

    for j := 1 to n do

    begin

      a[i, j] := random(11);

      write(a[i, j], ' ');

    end;

    writeln;

  end;

 

  max := a[1, 1];

  for i := 1 to m do

    for j := 1 to n do

      if a[i, j] > max then

        max := a[i, j];

  writeln('Max = ', max);

  

  for i := 1 to m do

  begin

    count := 0;

    for j := 1 to n do

      if a[i, j] = max then

        inc(count);

    writeln('В строке', i ,' находится', count, ' максимальных элементов');

  end;

  readln;

end.