[r]
Trang 1{cho mang 2 chieu a m*n vct sap xep mang a theo yeu cau sau:
cac dong dc sap xep theo thu tu tang dan cua tong cac ptu tren moi dong}
var a:array[1 10,1 10] of integer;
b:array[1 100] of integer;
i,n,m,j,t,s,tam,k:integer;
begin
write('n=');readln(n);
write('m=');readln(m);s:=1;
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,' ',j,']=');readln(a[i,j]);
end;
for i:=1 to n do
begin
t:=0;
for j:=1 to m do t:=t+a[i,j];
b[s]:=t;
s:=s+1;
end;
for i:=1 to s-2 do
for j:=i+1 to s-1 do
if b[i]>b[j] then
begin
tam:=b[i];
b[i]:=b[j];
b[j]:=tam;
end;
for k:=1 to s-1 do
begin
for i:=1 to n do
begin
t:=0;
for j:=1 to m do t:=t+a[i,j];
if t=b[k] then
begin
for j:=1 to m do write(a[i,j],' ');
writeln;
end;
end;
end;
readln
end
Trang 2{cho mang 2 chieu a cap m*n vct sap xep mang theo yeu cau: cac ptu tren moi hang duoc sap xep giam dan}
var a:array [1 10,1 9] of integer;
n,j,i,m,s,tam:integer;
begin
write('nhap n=');readln(n);
write('nhap m=');readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,j,']=');readln(a[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to m-1 do
for s:=j+1 to m do
if a[i,j]<a[i,s] then
begin
tam:=a[i,j];
a[i,j]:=a[i,s];
a[i,s]:=tam;
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
readln
end