哪位大神帮忙看下代码，求求了60分，时间不怕超限

回复 @HZOI_RXR :
一样，我同桌也叫嘉豪

so easy

超简单，五分钟敲完

什么鬼题

这么一道水题调了15min……话说这届hzoi还真有个叫嘉豪的hhhhh

这难道是通过率最低的水题！？

莫名其妙错了6次。。。。。
#include<iostream>
#include<cstdio>
#include<iomanip>
#include<cmath>
#include<algorithm>
using namespace std;
double a[1000005];
int main(){
freopen("jiahao1.in","r",stdin);
freopen("jiahao1.out","w",stdout);
double m;
int n;
int t=0;
cin>>m>>n;
for(int i=1;i<=n;i++)
cin>>a[i];
sort(a+1,a+1+n);
for(int i=1;i<=n;i++)
{if(m>a[i])
{t++;m+=a[i]/2;}
else break;}
cout<<t;
return 0;
}

水题还错这么多次，联赛gg预定

蒟蒻W了一mol遍..........
(怎么不说清要四舍五入？)

所以我2A提高了正确率？

哈哈哈哈所以我2a拉高了正确率？？？

回复 @Hallmeow :
stupid
来看学长代码

快排写炸了跪一次
少打个等号跪一次
。。。。。。。。

@liu_runda 看见水题先看评论，发现很坑，然后觉得要1A超越学长。跪了两次后不得已打开学长的代码才水掉。(#‵′)靠

三遍才过……这个世道……

表示嘉豪不能吃体积比她小的东西这个设定很坑
但这题依然很简单 象寡人这能渣渣都轻松过 \("▔□▔)/没有办法啊

快排一遍过，无压力

program past;

var

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

m,n,i,all:longint;

 procedure qsort(s,t:longint);

 var

 i,j,mid,p:longint;

 begin

 i:=s;

 j:=t;

 mid:=a[(i+j)div 2];

 repeat

 while a[i]<mid do inc(i);

 while a[j]>mid do dec(j);

 if i<=j then

 begin

 p:=a[i];

 a[i]:=a[j];

 a[j]:=p;

 inc(i);

 dec(j);

 end;

 until i>j;

 if s<j then qsort(s,j);

 if i<t then qsort(i,t);

 end;

begin

assign(input,'jiahao1.in');

assign(output,'jiahao1.out');

reset(input);

rewrite(output);

all:=0;

read(m,n);

for i:=1 to n do

readln(a[i]);

qsort(1,n);

for i:=1 to n do

begin

if m>a[i] then

begin

m:=m+a[i] div 2;

inc(all);

end

else break;

end;

writeln(all);

close(input);

close(output);

end.

求大神指错。。。
为啥c++能过？