小学生信息学奥赛决赛题2008年决赛答案(2)

for i:=1 to n do write(b[i]:3);writeln;

for i:=1 to n do write(c[i]:3);writeln;}{测试用} for i:=1 to n do

for j:=i+1 to n do begin if (b[i]

t:=a[i];a[i]:=a[j];a[j]:=t;t:=b[i];b[i]:=b[j];b[j]:=t; end;end;{将剩余的数据从大到小排序} for i:=1 to n do

for j:=i to n do if (a[j]>i) and (c[i]=0) then begin c[i]:=b[j];a[j]:=0;b[j]:=0;

end;{将数据按照完成期限填入到数组Ｃ的空位中} for i:=1 to n do

for j:=i+1 to n do begin if a[i]>a[j] then begin

t:=a[i];a[i]:=a[j];a[j]:=t;t:=b[i];b[i]:=b[j];b[j]:=t; end;end;{将剩余的数据按完成期限从短到长排序} for i:=1 to n do

for j:=i to n do if (a[j]>i) and (b[j]>c[i]) then begin c[i]:=b[j];a[j]:=0;b[j]:=0;

end;{用剩余的数据替换完成期限比它短，数值比它小的数} {for i:=1 to n do write(a[i]:3);writeln; for i:=1 to n do write(b[i]:3);writeln;

for i:=1 to n do write(c[i]:3);writeln;}{测试用} for i:=1 to n do m:=m+c[i]; writeln(m); readln;readln end.