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

题目解答

题目:
program nbXX09_3;
var a,work:array[1..100] of integer;
i,j,x,d,max:integer;
begin
readln(max);
for i:=1 to max do begin
read(a[i]); work[i]:=a[i];
end;
d:=max div 2;
while d>=1 do begin
for i:=d+1 to max do begin
x:=work[i];
j:=i-d;
while (j>0) and (x<work[j]) do begin
work[j+d]:=work[j];
dec(j,d);
end;
work[j+d]:=x;
end;
d:=d div 2;
end;
for i:= max downto 1 do
if a[i]=work[i] then write('1')
else write('0');
writeln;
end.
输入:8
71 88 149 32 66 90 144 99
输出:01000000
考点:
分析:
解答:
评论:
老师: