Строчки и столбцы

[d0ki]

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

program massiv;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,l,k,m:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(2);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n-1 do
begin
for l:=2 to n do
begin
k:=0;
for j:=1 to n do
if a[i,j]=a[l,j] then
begin
k:=k+1;
if k=n then
if (i<>l) and (i<l) then
writeln(i,'=',l);
end;
end;

end;
writeln;
end.


Но решить эту задачу: Определить номера строк и столбцов двумерного массива, которые равны между собой, у меня никак не получается.
помогите плиз!

[XTen]

всё очень просто сравниваешь все значения For - ом которые значения будут равные между собой ихние позиции и выводишь то есть к примеру a[i,j] вот тебе сразу и позиция i,j
Если не понятно пиши ICQ: 410-691-984