现有算法及正整数n和数组A如下求数组C的值
VAR ABC:Array[] of integer;
FUNC AAA(st:integer):integer;
IF s=t THEN IF B[s]= THEN AAA:=S ELSE AAA:=s ELSE
BEGIN
l:=AAA(s(s+t) DIV );
r:=AAA((s+t) DIV +t);
IF l> THEN AAA:=l ELSE AAA:=r;
IF (r>) AND (A[l]>A[r]) THEN AAA:=r
END
ENDF;
PROC BBB;
FOR i:= TO n DO B[i]:=;
FOR i:= TO n DO B[AAA(n)]:=i;
FOR i:= TO n DO C[B[i]]:=A[i];
ENDP;
初始值n=A={};【北京邮电大学 五(分)】
[] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []