Дана матрица L (3,3), найти и вывести номера строк.,

элементы которых

одинаковы. Вывести матрицу L по строкам.

Var n, m, i, j, k, s, s1:longint;

y:array[1 ... 10000,1 ... 10000] of longint;

o:array[1 ... 10000] of longint;

begin

read (n, m) ;

for i:=1 to n do

for j:=1 to m do

read (y[i, j]) ;

for i:=1 to n do

for j:=1 to n do

if ji then

begin for k:=1 to m do

if y[i, k]=y[j, k] then inc (s) ;

if s=m then

begin

if o[i]=0 then

begin

writeln (i) ;

o[i]:=1;

end;

if o[j]=0 then

begin

writeln (j) ;

o[j]:=1;

end;

end;

s:=0;

end;

end.

Для общего случая.