不是VIP会员,不能显示答案

题目解答

题目:
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
考点:
分析:
解答:
评论:
老师: