задача на двумерный массив

[lexa26]

дана матрица размером n найдти максимальный элемент, меняя местами строки и столбци поместить этот элемент в левый верхний угол.
Помогите поменять местами строки и столбцы, вот исходный код:

var m:array[1..100,1..100] of integer;
i,j,max,n,im,jn:integer;
begin
writeln('vvedite razmer');
read(n);
for i:=1 to n do
for j:=1 to n do 
m[i,j]:=-9+random(20);
writeln;
end;
max:=m[1,1];
for i:=1 to n do
for j:=1 to n do
if m[i,j]>max then 
begin
max:=m[i,j];
im:=i;
jn:=j;
end;

{здесь надо поменять местами строки и столбци}

writeln(im,jn);
for i:=1 to n do
 begin
 for j:=1 to n do
 write(m[i,j],' ');
 writeln;
 end;
end.

[XandrMoro]

Там где у тебя место для меняния ставишь

 for i:= 1 to n do
  begin
   m[i,1]:= m[i,1] xor m[i,jn];
   m[i,jn]:= m[i,jn] xor m[i,1];
   m[i,1]:= m[i,1] xor m[i,jn];
   m[1,i]:= m[1,i] xor m[im,i];
   m[im,i]:= m[im,i] xor m[1,i];
   m[1,i]:= m[1,i] xor m[im,i];
  end;

[lexa26]

что-то не работает
вот код:

var m:array[1..100,1..100] of integer;
i,j,max,n,im,jn:integer;
begin
writeln('vvedite razmer');
read(n);
for i:=1 to n do
 begin
 for j:=1 to n do 
 begin
 m[i,j]:=-9+random(20);
 write(m[i,j],' ');
 end;
 writeln;
 end;
max:=m[1,1];
for i:=1 to n do
for j:=1 to n do
if m[i,j]>max then 
begin
max:=m[i,j];
im:=i;
jn:=j;
end;
for i:= 1 to n do
  begin
   m[i,1]:= m[i,1] xor m[i,jn];
   m[i,jn]:= m[i,jn] xor m[i,1];
   m[i,1]:= m[i,1] xor m[i,jn];
   m[1,i]:= m[1,i] xor m[im,i];
   m[im,i]:= m[im,i] xor m[1,i];
   m[1,i]:= m[1,i] xor m[im,i];
  end;
writeln(im,jn);
for i:=1 to n do
 begin
 for j:=1 to n do
 write(m[i,j],' ');
 writeln;
 end;
end.

и результат:

[XandrMoro]

Извиняюсь, не учёл, что может быть первая строка\столбец, ксорить в таком случае нельзя. Тогда делаем так:

for i:= 1 to n do
  begin
   a:= m[i,1];
   m[i,jn]:= m[i,1];
   m[i,1]:= a;
   a:= m[1,i];
   m[im,i]:= m[1,i];
   m[1,i]:= a;
  end;

Должно быть всё в порядке.

[Shift_sk]

var m:array[1..100,1..100] of integer;
i,j,max,n,im,jn,c:integer;
begin
writeln('vvedite razmer');
read(n);
for i:=1 to n do
for j:=1 to n do 
m[i,j]:=-9+random(20);
for i:=1 to n do
 begin
 for j:=1 to n do
 write(m[i,j],' ');
 writeln;
 end;

max:=m[1,1];
for i:=1 to n do
for j:=1 to n do
if m[i,j]>max then 
begin
max:=m[i,j];
im:=i;
jn:=j;
end;

{здесь надо поменять местами строки и столбци}

writeln(im,jn);
for i:=1 to n do  begin
c:=m[1,i];
m[1,i]:=m[im,i];
m[im,i]:=c;
end;
for i:=1 to n do  begin
c:=m[1,i];
m[1,i]:=m[1,jn];
m[1,jn]:=c;
end;

for i:=1 to n do
 begin
 for j:=1 to n do
 write(m[i,j],' ');
 writeln;
 end;
end.

[lexa26]

Сообщение от XandrMoro

Извиняюсь, не учёл, что может быть первая строка\столбец, ксорить в таком случае нельзя. Тогда делаем так:

for i:= 1 to n do
  begin
   a:= m[i,1];
   m[i,jn]:= [i,1];
   m[i,1]:= a;
   a:= m[1,i];
   m[im,i]:= m[1,i];
   m[1,i]:= a;
  end;

Должно быть всё в порядке.

печалька:

[XandrMoro]

Извиняюсь ещё раз, поленился проверить. Естественно оно не будет работать, у меня идентификаторы не те стоят) Проверил, у меня работает...

for i:= 1 to n do
  begin
   c:= m[i,jn];
   m[i,jn]:= m[i,1];
   m[i,1]:= c;
  end;
for i:= 1 to n do
  begin
   c:= m[im,i];
   m[im,i]:= m[1,i];
   m[1,i]:= c;
  end;

[lexa26]

Всё работает, спс