Похожие строки в матрицах, Попробуйте, поймите или... решите Опции

[gepard]

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

Очень срочно надо решение, а я сам не могу даже врубиться в условие этой задачки

[volvo]

klem4, не все так просто:

const
   n=5;
type
   TMatrix = array[1..n,1..n] of integer;

{ Здесь - твоя функция IsSimilar }

const
  a: tmatrix =
  (
    (1, 1, 3, 4, 5),
    (2, 3, 4, 5, 1),
    (1, 3, 3, 4, 5),
    (5, 4, 3, 2, 1),
    (5, 4, 2, 3, 1)
  );

begin
  writeln(IsSimilar(a, 1, 2)); { Как ты думаешь, какой должен быть ответ? }
end.

Со своей стороны могу предложить такой вариант:

const
   n=5;
type
   TVector = array[1 .. n] of integer;
   TMatrix = array[1 .. n] of TVector;

function IsSimilar(mx : TMatrix; i1,i2 : byte) : boolean;

  procedure sort(var v: TVector);
  var i, j, T: integer;
  begin
    for i := 1 To n Do
      for j := n downto i + 1 do
        if v[pred(j)] > v[j] then begin
          T := v[pred(j)]; v[pred(j)] := v[j]; v[j] := T
          end
  end;

var
  i: integer;
begin
  sort(mx[i1]); sort(mx[i2]);
  i := 1;
  while (i <= n) and (mx[i1][i] = mx[i2][i]) do inc(i);

  IsSimilar := (i > n);
end;

const
  a: tmatrix =
  (
    (1, 1, 3, 4, 5),
    (2, 3, 4, 5, 1),
    (1, 3, 3, 4, 5),
    (5, 4, 3, 2, 1),
    (5, 4, 2, 3, 1)
  );

begin
  writeln(issimilar(a, 1, 2));
end.