#这个？#
第一次，没考虑小于等于零的不能摘
第二次，手贱……
第三次过了

有点弱，排序不好

var

p,t:array [1..300] of integer;

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

begin

read(m,n);

for i:=1 to n do

readln(p[i]);

for i:=1 to m do

readln(t[i]);

for i:=1 to n do

for j:=i+1 to n do

if p[i]

var

a,b,c,d,e,f,g:longint;

x,w:array[1..2000]of longint ;

begin

read(a,b);

for c:=1 to a do read(x[c]);

for d:=1 to b do read(w[d]);

for c:=1 to b-1 do

for d:=1 to b do if w[c]0 then

if x[c]>w[d] then begin w[d]:=301; break; end;

end;

for c:=1 to b do

if (w[c]>0)and(w[c]

好吧，我用冒泡排序竟然没有超时……

数据范围有点弱了

var

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

b:array [1..300] of integer;

n,m,i,j,t,c:longint;

begin

readln(n,m);

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

fillchar(b,sizeof(b),0);

for i:=1 to m do begin

readln(t);

if t>0 then inc(b[t]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]0 then begin

t:=i;

break;

end;

for i:=1 to n do

for j:=t downto 1 do

if (b[j]>0) and (a[i]>j) then begin

dec(c);

a[i]:=0;

dec(b[j]);

break;

end;

writeln(c);

end.

编译通过...

├ 测试数据 01：答案正确... (0ms, 596KB)

├ 测试数据 02：答案正确... (0ms, 596KB)

├ 测试数据 03：答案正确... (0ms, 596KB)

├ 测试数据 04：答案正确... (0ms, 596KB)

├ 测试数据 05：答案正确... (0ms, 596KB)

├ 测试数据 06：答案正确... (0ms, 596KB)

├ 测试数据 07：答案正确... (0ms, 596KB)

├ 测试数据 08：答案正确... (0ms, 596KB)

├ 测试数据 09：答案正确... (0ms, 596KB)

├ 测试数据 10：答案正确... (0ms, 596KB)

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

Accepted / 100 / 0ms / 596KB

view sourceprint?01 var

02 n,m,i,j,k,k2,i1,m1:longint;

03 p:array[0..2000] of boolean;

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

05 p1:boolean;

06 begin

07 readln(n,m);

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

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

10 m1:=m;

11 if m1>n then k:=m1 else k:=n;

12 for i:=1 to k do begin

13 for j:=i+1 to k do begin

14 if b[i]

连我都能一次AC，说明真是水到家了

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

错的：

program ex1;

var n,m,l,k,d,s,w:integer; a,b:array[1..2000]of integer;

begin

readln(n,m);

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

for k:=1 to m do readln(b[k]);

for k:=1 to m do

for d:=m downto k-1 do

if b[d]

program noname;

var n,m,i,j,t,r:integer;

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

begin

readln(n,m);

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

readln;

for i:=1 to m do read(b[i]);

t:=m;

for i:=1 to m-1 do

for j:=i+1 to m do

if b[i]

我的AC率啊……

崩溃了……

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

太悲剧了,被这道题目水到了.......

死陶陶，哥鄙视你，叫春哥暴你菊。

AC第150题，纪念以下

readln(n,m);

fillchar(b,sizeof(b),0);

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

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

k:=0;

for i:=1 to n do

for j:=a[i]-1 downto 1 do

if b[j] then begin inc(k);b[j]:=false;break;end;

writeln(m-k);

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

n,m,i,j,t,s:longint;

begin

read(n,m);

for i:=1 to n do

readln(a[i]);

for j:=1 to m do

readln(b[j]);

for i:=1 to m-1 do

for j:=i+1 to m do

if b[i]

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

按照题意搞，写了个计数排序记录每个高度陶陶个数、一个快排将苹果够到的高度从大到小排序，然后顺序枚举苹果，倒着找第一个可以被摘的陶陶，找到后摘掉，剩下的就是答案。

一遍AC。

program SDSD;

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

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

////////////////////////////////////////////

begin

readln(n,m);

for i:=1 to n do

readln(a[i]);

for i:=1 to m do

readln(b[i]);

///////////////////////////////////////////////

for i:=1 to m-1 do{排序淘淘}

for j:=1 to m-i do

begin

if b[j]=m);

end;

k:=0;

for i:=1 to m do

if b[i]-1

then k:=k+1;

writeln(k);

end.

我和下面的HC199581一起做的（方法不同）

一开始都没AC

后来我发现有2个细节我们两都没注意

1.小于等于0的不能摘

2.只摘小于范围的淘淘，不能不等于

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

program p1291(input,output);

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

app:array [0..2010] of longint;

tt:array [0..301] of longint;

zs:int64;

procedure px(p,q:longint);

var x,y,shu:longint;

begin

x:=p;

y:=q;

while y>x do

begin

while (app[x]x) do

y:=y-1;

shu:=app[x];

app[x]:=app[y];

app[y]:=shu;

end;

if p0

then begin

tt[x]:=tt[x]-1;

break;

end;

end;

for i:=1 to 300 do

zs:=zs+tt[i];

writeln(zs);

end.

注意细节啊………………………………

编译通过...

├ 测试数据 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

Program tt;

Const

infile = 'tt.in';

outfile = 'tt.out';

Var

a,b:Array[1..2000] of Integer;

m,n,i,j,ans:Integer;

Procedure Qsort(i,j:Integer);

Var

i1,j1,t,x:Integer;

Begin

i1:=i;

j1:=j;

x:=b[(i1 + j1) div 2];

While i1