题目: |
Program test_1004;
Var
i,j,n,t,f:integer;
a:array[1..100]
of integer;
begin
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
begin
f:=0;
for j:=n downto i-1 do
if a[j-1]>a[j] then begin t:=a[j-1];a[j-1]:=a[j];a[j]:=t;f:=1;end;
if f=0 then break;
end;
for i:=1 to n do write(a[i],’ ’);
end.
输入
8
12 1 -2 0 3 -4 7 9 输出:0 0 0 1 3 7 9 12
|