比赛时我的程序只有50分。一下是我的程序。可以略过

program T4;

const

int='T4.in';

outf='T4.out';

var

a:array[1..1000]of longint;

d:array[1..1000]of longint;

n,m,l,r,ans,i,j,k,max:longint;

t:boolean;

begin

assign(input,int);

reset(input);

assign(output,outf);

rewrite(output);

readln(n,m);

max:=0;

for i:=1 to n do begin

read(a[i]);

inc(max,a[i]);

end;

l:=max div m;

r:=max;

while l