darkdragon

Дана матрица А(n*n) Написать программу ,которая находит максимальный элемент по абсолютной величене элемент и переставляет строки и столбцы так ,чтобыон оказался в левом верхнем углу!

darkdragon

все спс сам!

SGE

mini:=1;
minj:=1;
for i:=1 to n do
for j:=1 to n do
if abs(a[i,j])<abs(a[mini,minj]) then
begin
mini:=i;
minj:=j;
end;
for i:=mini downto 2 do
for j:=1 to n do
begin
a[i,j]:=a[i,j]+a[i-1,j];
a[i-1,j]:=a[i,j]-a[i-1,j];
a[i,j]:=a[i,j]-a[i-1,j];
end;
for i:=1 to n do
for j:=minj downto 2 do
begin
a[i,j]:=a[i,j]+a[i,j-1];
a[i,j-1]:=a[i,j]-a[i,j-1];
a[i,j]:=a[i,j]-a[i,j-1];
end;