鏁版嵁緇撴瀯絎簲绔犲簲鐢ㄩ鍙婄瓟妗圼8]_璺ㄨ€冪綉

1. 鐜版湁綆楁硶鍙婃鏁存暟n鍜屾暟緇?/span>A濡備笅錛屾眰鏁扮粍C鐨勫€箋€?/span>
銆€銆€VAR A,B,C:Array[1..100] of integer;
銆€銆€FUNC AAA(s,t:integer):integer;
銆€銆€IF s=t THEN IF B[s]=0 THEN AAA:=S ELSE AAA:=-s ELSE
銆€銆€BEGIN
銆€銆€l:=AAA(s,(s+t) DIV 2);
銆€銆€r:=AAA((s+t) DIV 2+1,t);
銆€銆€IF l>0 THEN AAA:=l ELSE AAA:=r;
銆€銆€IF (r>0) AND (A[l]>A[r]) THEN AAA:=r
銆€銆€END
銆€銆€ENDF;
銆€銆€PROC BBB;
銆€銆€FOR i:=1 TO n DO B[i]:=0;
銆€銆€FOR i:=1 TO n DO B[AAA(1,n)]:=i;
銆€銆€FOR i:=1 TO n DO C[B[i]]:=A[i];
銆€銆€ENDP;
銆€銆€鍒濆鍊鹼細n=10,A={121,22,323,212,636,939,828,424,55,262};
銆€銆€銆?a target="_blank">鍖椾含閭數(shù)澶у 2002 浜斻€?/span>1錛?/span>10鍒嗭級銆?/span>
銆€銆€銆愬弬鑰冪瓟妗堛€?/font>
銆€銆€榪欐槸涓€涓帓搴忕▼搴忋€傝繍琛屽悗B鏁扮粍瀛樻斁A鏁扮粍鍚勬暟鍦ㄦ帓搴忓悗鐨勪綅緗€傜粨鏋滄槸錛?/span>
銆€銆€A={121,22,323,212,636,939,828,424,55,262}
銆€銆€B={3,1,6,4,8,10,9,7,2,5}
銆€銆€C={22,55,121,212,262,323,424,639,828,939}