C.RONALDO 2012-03-02 18:56:00
点我顶贴
收藏
删除
var
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位]