大佬的做法 var n,i,ans,a1,k,temp:longint;a:array[1..10001] of longint; procedure qsort(l,r:longint); var i,j,k,p,temp:longint; begin i:=l; j:=r; k:=a[l]; repeat while a[i]>k do

P1801 黑匣子_NOI导刊2010提高（06） 法一：算法思想较精妙--两个堆 先将数字放入大根堆，然后取出堆顶元素，放入小根堆，如果要求输出，则取出小根堆堆顶元素，输出并放入大根堆。 #include #include using namespace std; priority_queue q1;//大根堆 priority_queue,greater > q2;//小根