i,j,jh,h,gs,xz,fz:longint;

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

begin

read(xz,gs);

for i:=1 to gs do

read(a[i]);

for i:=1 to gs do

for j:=i+1 to gs do

if a[i]<a[j] then

begin

jh:=a[i];

a[i]:=a[j];

a[j]:=jh;

end;

j:=gs;

fz:=0;

for i:=1 to gs do

begin

if i>j then break;

if i=j then begin fz:=fz+1; break; end;

h:=a[j]+a[i];

fz:=fz+1;

if h<=xz then j:=j-1;

end;

writeln(fz);

end.

状态: Unaccepted

测评机： Xeost[5]

得分： 70分

提交日期： 2012-3-3 10:53:00

有效耗时： 2406毫秒

测试结果1: 通过本测试点|有效耗时156ms

测试结果2: 通过本测试点|有效耗时157ms

测试结果3: 通过本测试点|有效耗时156ms

测试结果4: 通过本测试点|有效耗时172ms

测试结果5: 通过本测试点|有效耗时265ms

测试结果6: 通过本测试点|有效耗时766ms

测试结果7: 通过本测试点|有效耗时734ms

测试结果8: 选手程序运行超过时限

测试结果9: 测试结果错误.错误结果为:9863

正确结果应为:15376

测试结果10: 输出过长|用户输出数据超过标准输出两倍[标准输出1位|选手输出4位]