Дана прямоугольная матрица 4 на 5 отсортировать построчно по убыванию.
uses crt;
const n=5;
k=4;
var m: array[1..n,1..k] of integer;
i,j,g:byte;
buf: integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to k do
m[i,j]:=random(9);
for i:=1 to n do
begin
for j:=1 to k do write(m[i,j]:1);
writeln;
end;
writeln;
for i:=1 to n do
begin
for j:=1 to k do
for g:=k downto j+1 do
if m[i,g-1]>m[i,g] then
begin
buf:=m[i,g-1];
m[i,g-1]:=m[i,g];
m[i,g]:=buf;
end;
end;
for i:=1 to n do
begin
for j:=1 to k do write(m[i,j]:1);
writeln;
end;
end.