BAI TOAN SAP XEP TRONG MANG 2 CHIEU

<span class='text_page_counter'>(1)</span>{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..

<span class='text_page_counter'>(2)</span> {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..

<span class='text_page_counter'>(3)</span>