например, если исходный массив такой:
4 2 6
1 5 8
7 9 3
то должен получиться такой:
1 2 3
4 5 6
7 8 9
Вот мои наработки:
program z13;
var i,j,k,n,m,s:integer;
a:array[1..100,1..100] of integer;
begin
randomize;
writeln ('Введите количество строк и столбцов массива');
readln (n,m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(25)-10;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
if (i>1) and (j=1) then
begin
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]>a[n,j-1] then
begin
k:=a[i,j];
a[i,j]:=a[n,j-1];
a[n,j-1]:=k;
end;
end;
end
else
if j>1 then
begin
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]>a[i,j-1] then
begin
k:=a[i,j];
a[i,j]:=a[i,j-1];
a[i,j-1]:=k;
end;
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:4);
end;
writeln;
end;
end.