稍微列个式子就知道是贪心

1 var w,h,c,a,f:array[0..50010] of longint; 2     m,b,h0,n,i,p,j,x,ans,s:longint; 3  4 procedure swap(var a,b:longint); 5   var c:longint; 6   begin 7     c:=a; 8     a:=b; 9     b:=c;10   end;11 12 procedure sort(l,r: longint);13   var i,j,x,y: longint;14   begin15     i:=l;16     j:=r;17     x:=a[(l+r) div 2];18     repeat19       while a[i]
      
       j) then22       begin23         swap(a[i],a[j]);24         swap(f[i],f[j]);25         inc(i);26         j:=j-1;27       end;28     until i>j;29     if l
       
        s then65     begin66       p:=i;67       ans:=s;68     end;69   end;70   writeln(p);71   writeln(ans);72 end.