我做1742的题目已经修改过很多次了，可是为什么还是只有40分？请各路大神帮忙，小弟在这里谢谢啦！

program robertbear;

var

a,c,ls,num:array[1..500001] of longint;

i,j,k,m,n,t,total,max:longint;

ave,mid:real;

procedure Q(l,r:longint);

var

i,j,k,m:longint;

begin

i:=l;

j:=r;

k:=a[(i+l) div 2];

while i