Упорядочить строки матрицы, по возрастанию количества одинаковых элементов в каждой строке Опции

[Fedor]

Задача:
Упорядочить строки целочисленной прямоугольной матрицы по возрастанию количества одинаковых элементов в каждой строке (оформить в виде процедуры).

Разбил на подзадачи:
1) Определяем количество одинаковых элементов в строке матрицы.
2) Упорядочиваем строки


Попытался решить 1ю часть так: беру первый элемент строки, сравниваю его со всеми остальными; потом второй, сравниваю со всеми остальными и т.д.
Вот что получилось:

const
      CMatrix_size=3;
 type
      TCounters=Byte;
         TFloat=Real;
        TMatrix=array[1..CMatrix_Size,1..CMatrix_Size]of TFloat;



procedure Count(Matrix:TMatrix);
var  i,j,k:TCounters;
     d:Integer;
begin
d:=0;
for i:=1 to CMatrix_size do
         begin

         for j:=1 to CMatrix_size do
               begin
               for k:=1 to CMatrix_size do
                     if ((Matrix[i,j]=Matrix[i,k])) then
                                    inc(d);

               end;

         Write(d,'; ');
         d:=0;
         Writeln;
         end;
end;

Когда все элементы одинаковые выводится вот что:
9;
9;
9;

Подскажите плиз ошибку...

[Lapp]

Подскажите плиз ошибку...

Ошибок немало.. Я исправил твою прогу (в духе того, что писал в предыдущем мессадже). Посмотри и разберись. Что непонятно - спрашивай.

const
  CMatrix_size=4;

type
  TCounters=Byte;
  TFloat=Real;
  TMatrix=array[1..CMatrix_Size,1..CMatrix_Size]of TFloat;

function Count(var Matrix:TMatrix;i:integer):TCounters;
var
  j,k,m:TCounters;
  d:Integer;
begin
  m:=0;
  for j:=1 to CMatrix_size do begin
    d:=0;
    for k:=1 to CMatrix_size do if ((Matrix[i,j]=Matrix[i,k])) then inc(d);
    if d>m then m:=d
  end
end;

var
  i,j:TCounters;
  Matrix:TMatrix;

begin
  for i:=1 to CMatrix_size do for j:=1 to CMatrix_size do Matrix[i,j]:=2;
  for i:=1 to CMatrix_Size do WriteLn(i:3,': ',Count(Matrix,i):3);
  ReadLn
end.

Обрати внимание: теперь функция Count возвращает количество максимумов в заданной строке. В теле проги сделай цикл и заполни массив макимумов. Затем по нему сортируй строки.