Cho mảng A[1..n,1..m] chứa các số nguyên.
Hãy sắp xếp lại giá trị của các ô trong A sao cho:
- A[i,1] <= A[i,2] <= …<= A[i,m]
- A[1,j] <= A[2,j] <= … <= a[N,J]
Ví dụ:
5 8
1 3 9 8 3 2 4 5
5 2 4 1 6 1 7 9
4 3 3 4 1 2 3 2
5 3 8 1 6 3 5 4
8 2 1 2 1 1 3 4
=> 1 1 1 1 1 1 1 1
2 2 2 2 2 2 3 3
3 3 3 3 3 3 4 4
4 4 4 4 5 5 5 5
6 6 7 8 8 8 9 9
Uses crt;
Trả lờiXóaVar n,m,i,j,tam:longint;
f:array[1..1000000] of longint;
Begin
readln(n);
readln(m);
For i:=1 to m*n do
readln(f[i]);
For i:=1 to m*n-1 do
For j:=i+1 to m*n do
If f[i]>f[j] then
Begin
tam:=f[j];
f[j]:=f[i];
f[i]:=tam;
end;
tam:=0;
For i:=1 to m*n do
Begin
tam:=tam+124;
Write(f[i]:4);
If (tam mod m)=0 then writeln;
end;
readln;
end.
biến tạm dùng làm gì?
Trả lờiXóa