Кто Знает Паскаль ?, помогите Поделиться Опции

[CHIKANOV]

Помогите составить программу, очень надо к четвергу!!!!

Плюсики обеспечены !!!!

Задача :
Назовем допустимым преобразованием матрицы перестановку двух строк или двух столбцов.
Дана действительная квадратная матрица порядка n.
С помощью допустимых преобразований добиться того, чтобы один из элементов матрицы обладающий
наибольшим по модулю значением, распологался в левом верхнем углу матрицы.

СПАСИБО ЗАРАНИЕ !!!!

[Stalker.mg]

begin
max:=0;
maxi:=1;
maxj:=1;
for i:=1 to n do
for j:=1 to n do begin
if a[i,j]>=max then begin
max:=a[i,j];
maxi:=i;
maxj:=j;
end;
end;
for k:=1 to n do begin
prom:=a[k,1];
a[k,1]:=a[k,jmax];
a[k,jmax]:=prom;
end;
for k:=1 to n do begin
prom:=a[1,k];
a[1,k]:=a[imax,k];
a[imax,k]:=prom;
end;

p.s. я мог перепутать i и j местами и если не заработает поменях их местами

[CHIKANOV]

Stalker.mg,

Спасибо Большое!!!
А можешь написать целую, если несложно конечно

Или может кто еще знает

[Stalker.mg]

вроде так
uses crt;
const n=10;
var max,maxi,maxj,k,i,j,prom:integer;
a: array [1..n,1..n]of integer;
begin
writeln('ввод массива')
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);

max:=0;
maxi:=1;
maxj:=1;
for i:=1 to n do
for j:=1 to n do begin
if abs(a[i,j])>=max then begin
max:=abs(a[i,j]);
maxi:=i;
maxj:=j;
end;
end;
for k:=1 to n do begin
prom:=a[k,1];
a[k,1]:=a[k,jmax];
a[k,jmax]:=prom;
end;
for k:=1 to n do begin
prom:=a[1,k];
a[1,k]:=a[imax,k];
a[imax,k]:=prom;
end;
for i:=1 to n do begin
writeln;
for j:=1 to n do
write(a[i,j],' ');
end;
end.

[Stalker.mg]

извини то плохая версия држи эту работает 100%
uses crt;
const n=5;
var max,maxi,maxj,k,i,j,prom:integer;
a: array [1..n,1..n]of integer;
begin
writeln('vvod mass');
for i:=1 to n do
for j:=1 to n do
readln(a[i,j]);

max:=0;
maxi:=1;
maxj:=1;
for i:=1 to n do
for j:=1 to n do begin
if abs(a[i,j])>=max then begin
max:=abs(a[i,j]);
maxi:=i;
maxj:=j;
end;
end;
for k:=1 to n do begin
prom:=a[k,1];
a[k,1]:=a[k,maxj];
a[k,maxj]:=prom;
end;
for k:=1 to n do begin
prom:=a[1,k];
a[1,k]:=a[maxi,k];
a[maxi,k]:=prom;
end;
for i:=1 to n do begin
writeln;
for j:=1 to n do
write(a[i,j],' ');
end;
readln;
end.

[CHIKANOV]

Stalker.mg,

ОГРОМНЕЙШЕЕ СПАСИБО !!! clap;applo

Я у тебя в долгу

плюсик пока немогу дать