Sắp xếp không tăng
Xem PDF
Điểm:
100 (p)
Thời gian:
10.0s
Bộ nhớ:
256M
Input:
bàn phím
Output:
màn hình
Cho một dãy gồm \(n\) số nguyên dương \(A_1, A_2,…, A_n\). (\(N ≤ 10^4, A_i ≤ 10^9\)). Hãy in ra dãy số sau khi sắp xếp dãy số giảm dần (\(A_i ≥ A_{i+1}\)).
Input
- Dòng đầu chứa số \(n\),
- Dòng thứ hai chứa \(n\) số nguyên dương \(A_1, A_2,…, A_n\).
Output
- Một dòng chứa dãy số đã sắp xếp giảm dần.
Example
Test 1
Input
6
91 451 43 3 451 54 Output
451 451 91 54 43 3
Bình luận
Var n,k:int64;
i,j:longint;
A:array[1..100000]of longint;
begin
readln(n);
for i:=1 to n do read(A[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]<A[j] then
begin
k:=A[i];
A[i]:=A[j];
A[j]:=k;
end;
for i:=1 to n do Write(A[i],' ');
readln;
readln
end.
pascal
11 bình luận nữa