├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

n和m别搞反啊，神，我的正确率

#include

using namespace std;

int main()

{

long a[3001]={0},f[3001]={0};

long i,j,k,n,m;

cin>>n>>m;

for(i=1;i>a[i];

for(i=1;i>f[i];

sort(a+1,a+n+1);

sort(f+1,f+m+1);

k=m;

for(i=n;i>=1;i--)

{

while(f[k]>=a[i]&&f[k]>0&&k>0)

k--;

if(f[k]

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：90 有效耗时：0ms

最后一组怎么错了？

高度为0时没有摘啊?

晕。。。。。。。

我交了17次才Ac

烂陶陶不能摘，

还要留在树上！

#include

#include

#include

using namespace std;

int camp(const void *a,const void *b)

{

int *aa=(int *)a;

int *bb=(int *)b;

return *bb-*aa;

}

int main()

{

int n,m,j=1,s=0,z=1;

int apple[2001],tao[2001];

cin>>n>>m;

for(int i=1;i>apple[i];

for(int i=1;i>tao[i];

qsort(apple+1,n,sizeof(apple[0]),camp);

qsort(tao+1,m,sizeof(tao[0]),camp);

for(int i=1;i0)

{s=s+1;z=m+1;}

z=z+1;

}

i=i+1;

}

n=m-s;

cout

输出的M和N打错了。。。

过了6遍。。。

555~~~

我的通过率啊。。。

终于A了……

这个题目我去年是交了别人的程序才过的，因为总是90……

今天我又交了好几次，心理障碍？

这个题考察细节，总之我很弱

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var

n,m,i,j,last:Longint;

a,b:array[0..2000]of longint;

procedure qsort1(l,r:longint);

var i,j,x:longint;

begin

i:=l;j:=r;x:=a[i];

while i

简单

此题我用了14个提交来改造

10分钟 一次...

如此简单的题 通过率竟然如此低......

顺便100题纪念...COWs Bs Me...

1星纪念题..

m-ans写成n-ans了，白白交了4遍……

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

3次才过！

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

郁闷啊！

第一次交错了程序！

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

var

i,j,t,k,n,m:integer;

a,b,aa,bb,c,d:array[1..2000] of integer;

procedure kpa(x,y:integer);

var

r,l,z,q:longint;

begin

q:=a[x];

l:=x;

r:=y;

while lr);

if l0 then kpa(x,r);

if y-l>0 then kpa(l,y);

end;

procedure kpb(x,y:integer);

var

r,l,z,q:longint;

begin

q:=b[x];

l:=x;

r:=y;

while lr);

if l0 then kpb(x,r);

if y-l>0 then kpb(l,y);

end;

begin

readln(n,m); t:=0;

fillchar(c,sizeof(c),0);

fillchar(d,sizeof(d),0);

for i:=1 to n do readln(a[i]); kpa(1,n);

for i:=1 to m do readln(b[i]); kpb(1,m);

k:=0;

for i:=n downto 1 do begin

k:=k+1; aa[k]:=a[i];

end;

k:=0;

for i:=m downto 1 do begin

k:=k+1;bb[k]:=b[i];

end;

for i:=1 to n do begin

for j:=1 to m do begin

if (aa[i]>bb[j]) and (c[i]=0) and (bb[j]>0) and (d[j]=0) then begin

t:=t+1;

c[i]:=1;

end;

end;

end;

writeln(m-t);

end.

var m,n,i,k,x:longint;

a,b:array[1..2000] of integer;

begin

readln(n,m);

x:=0;

for i:=1 to n do readln(a[i]);

for i:=1 to m do begin readln(k);if k>0 then b[k]:=b[k]+1;end;

for i:=1 to n do

begin

for k:=300 downto 1 do if (a[i]>k) and (b[k]>=1) then begin

x:=x+1;b[k]:=b[k]-1;break;

end;

end;

writeln(m-x);

end.

汗！又是粗心！搞到WA几次

orz n，m搞错了

桶排万岁！

var

i,j,m,n:longint;

h,t:array [0..300] of longint;

begin

readln(n,m);

for i:=1 to n do

begin

readln(j);

if j0 then begin dec(h[i]); dec(t[j]); dec(m); break; end;

until (i=0) or (j=0);

writeln(m);

end.

a

var tt:array[0..2000]of longint;

ap:array[1..2000]of longint;

b:array[0..2000]of boolean;

i,j,k,n,m,t,ans:longint;

begin

readln(n,m);

for i:=1 to n do readln(ap[i]);

for i:=1 to m do readln(tt[i]);

for i:=1 to m do if tt[i]>0 then b[i]:=true;

for i:=1 to n do

begin

t:=0;k:=0;

for j:=1 to m do

if (b[j])and(ap[i]>tt[j]){MD!}

and(tt[j]>tt[k])then k:=j;

b[k]:=false;

end;

for i:=1 to m do if (b[i])or(tt[i]=0) then inc(ans);

writeln(ans);

end.