матрицы,строки Опции

[mixail_01]

Сформировать матрицу 5 на 5, вывести номера полностью совпадающих строк.

[Unconnected]

const m=5;

var matr:array[1..m,1..m] of byte;
    i,j:byte;
    st:set of byte=[];

function check(s1,s2:byte):boolean;
var u:byte;
begin
  result:=true;
  for u:=1 to m do if matr[s1,u]<>matr[s2,u] then begin
    result:=false;
    break;
  end;
end;

begin
  randomize;
  for i:=1 to m do
    for j:=1 to m do read(matr[i,j]);

  for i:=1 to m do begin
    if not(i in st) then begin
      for j:=1 to m do
        if (i<>j) and (check(i,j)) then begin //убрал одну проверку
          writeln(i,' ',j);
          st:=st+[i]+[j];
        end;
     end;
  end;
  readln;
end.

Попробуй это.

Сообщение отредактировано: Unconnected - 15.09.2010 23:45