BAI TOAN SAP XEP TRONG MANG 2 CHIEU

[r]

{cho mang 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 for j:=1 to m begin write('a[',i,' ',j,']=');readln(a[i,j]); end; for i:=1 to n begin t:=0; for j:=1 to m t:=t+a[i,j]; b[s]:=t; s:=s+1; end; for i:=1 to s-2 for j:=i+1 to s-1 if b[i]>b[j] then begin tam:=b[i]; b[i]:=b[j]; b[j]:=tam; end; for k:=1 to s-1 begin for i:=1 to n begin t:=0; for j:=1 to m t:=t+a[i,j]; if t=b[k] then begin for j:=1 to m write(a[i,j],' '); writeln; end; end; end; readln end {cho mang 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 for j:=1 to m begin write('a[',i,j,']=');readln(a[i,j]); end; for i:=1 to n begin for j:=1 to m-1 for s:=j+1 to m 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 begin for j:=1 to m write(a[i,j],' '); writeln; end; readln end