记录编号	74196	评测结果	AAAAAAAAAA
题目名称	[USACO Nov07] 奶牛探险	最终得分	100
用户昵称	翟佳麒是我孙子	是否通过	通过
代码语言	Pascal	运行时间	0.044 s
提交时间	2013-10-24 12:25:22	内存使用	0.54 MiB

var
t,s,q,n,g:longint;
a,b:array[1..50000]of longint;
procedure sort(l,r:longint);
var
i,j,x,y:longint;
begin
i:=l;
j:=r;
x:=a[(l+r)div 2];
repeat
while a[i]<x do inc(i);
while x<a[j] do dec(j);
if i<=j then begin
y:=a[i];
a[i]:=a[j];
a[j]:=y;
y:=b[i];
b[i]:=b[j];
b[j]:=y;
inc(i);
dec(j);
end;
until i>j;
if i<r then sort(i,r);
if l<j then sort(l,j);
end;
begin
assign(input,'explore.in');
reset(input);
assign(output,'explore.out');
rewrite(output);
readln(t,n);
for q:=1 to n do begin
                 readln(b[q]);
                 a[q]:=abs(b[q]);
                 end;
sort(1,n);
q:=1;
while (t>=0)and(q<=n) do  begin
              t:=t-abs(s-b[q]);
              s:=b[q];
              q:=q+1;
              end;
writeln(q-2);
end.