число, встречающееся в матрице максимальное количество раз

[boing]

помогите решить программу пожалуйста

Найти число, встречающееся в матрице максимальное количество раз. Массив NxM состоит из случайных вещественных чисел.

[Serge_Bliznykov]

из случайных вещественных чисел.

если числа реально вещественные и действительно случайные, шансы, что в матрице N*M они хоть повторятся - чрезвычайно малы!

но общий алгоритм такой.

MaxCount := 0;
цикл по I от 1-го числа до (N*M)-1
  CurrCount := 1;
  преобразуете I в координаты xI, yI,
  цикл по J от I+1 до (N*M)
     преобразуете J в координаты xJ, yJ,
     if Mas[xI,yI] = Mas[xJ,yJ] then Inc(CurrCount);
  конец цикла по J 
  if CurrCount > MaxCount then begin
        MaxCount := CurrCount;
        MaxValue := Mas[xI,yI];
  end;
 конец цикла по I

 вывод результата MaxCount и MaxValue

[boing]

program Project2;
type
m1=array[1..5,1..5]  of real;
var   a:m1;
procedure Input(var g:m1);
var x,y:integer;
begin
randomize;
   for x:=1 to 5 do
   for y:=1 to 5 do
     begin
      a[x,y]:=random(5);;
      a[x,y]:=a[x,y]*100;
     end;
end;

procedure Output(var g:m1);
var x,y:integer;
begin
   for x:=1 to 5 do
   begin
   for y:=1 to 5 do
     begin
         Write(g[x,y]:1:2,' ')
     end;
     writeln;
     end;
end;

procedure Search(var g:m1);
var x,m,y,xx,yy:integer;
    el,max:real;
     k:boolean;
begin
   m:=1;
   k:=false;
   max:=0;
      for x:=1 to 5 do
      for y:=1 to 5 do
        begin
          el:=g[x,y];
           for xx:=1 to 5 do
           for yy:=1 to 5 do
             begin
                 if (el=g[xx,yy])  and (m=1) then
                  begin
                   if (x<>xx) or (y<>yy) then
                     begin
                       max:=el;
                       k:=true;
                       m:=2;
                     end;
                  end
                 else
                    if (el=g[xx,yy])and (el>max) then
                       if (x<>xx) or (y<>yy) then
                         begin
                            max:=el;
                         end;
             end;
        end;
    if k=true then
     WriteLn('max=',max:1:4)
    else
     WriteLn('no max>1 raza');
end;
 
begin
Input(a);
WriteLn;
Output(a);
WriteLn;
Search(a);
ReadLn;
end.

а можете в этой задаче код поправить прога с сайбер форума сам немного доработал но она находит самый большой элемент из частовстречаемых

[ROMA2PVT]

const
m=5;
var a,kol:array[1..m,1..m] of real;
 i,b,c,i2,j2,j:integer;
 max:real;
 begin
 randomize;
 for i:=1 to m do
  begin
  for j:=1 to m do
    begin
    a[i,j]:=random(10)-5/2;
    write(a[i,j]:1:3,' ');
    end;
    writeln;
    end;
    writeln;
    for i2:=1 to m do
    for j2:=1 to m do
    begin
    kol[i2,j2]:=0;
    for i:=1 to m do
    for j:=1 to m do
    begin
    if a[i,j]=a[i2,j2] then
    kol[i2,j2]:=kol[i2,j2]+1;
    end;
    end;
    max:=kol[1,1];
    i:=1;
    j:=1;
    for i2:=1 to m do
    begin
    for j2:=1 to m do
    if kol[i2,j2]>max then
    begin
    max:=kol[i2,j2];
    i:=i2;
    j:=j2;
    end;
    end;
    writeln;
    writeln('Самое часто повторяющееся число в массиве:',a[i,j]:1:3,' ');
    end.

Вроди так.

[boing]

спасибо за программу а не подскажете как её поправить чтобы если нет встречающихся чисел то вывести сообщение что их нет

[boing]

объясните пож что тут происходит??????

for i:=1 to m do
    for j:=1 to m do
    begin
    if a[i,j]=a[i2,j2] then
    kol[i2,j2]:=kol[i2,j2]+1;
    end;
    end;
    max:=kol[1,1];
    i:=1;
    j:=1;
    for i2:=1 to m do
    begin
    for j2:=1 to m do
    if kol[i2,j2]>max then
    begin
    max:=kol[i2,j2];
    i:=i2;
    j:=j2;
    end;
    end;
    writeln;
    writeln('Самое часто повторяющееся число в массиве:',a[i,j]:1:3,' ');
    end.