谁有第十一届全国青少年奥林匹克信息学联赛复赛普及组试题答案

1.陶陶摘苹果：
var a:array[1..10] of integer;
b,i,s:integer;
begin
for i:=1 to 10 do
read(a[i]);
read(b);
for i:=1 to 10 do
if a[i]<=b+30 then
inc(s);
writeln(s);
end.
2.校门外的树 ：
var l,m,i,j,k,s:longint;
x,y:array[1..12000] of longint;
z:array [1..12000]of boolean;
begin
read(l,m);
for i:=1 to m do
read(x[i],y[i]);
for i:=1 to m do
for j:=x[i] to y[i] do
z[j]:=true;
for k:=0 to l do
if z[k]=false
then inc(s);
writeln(s);
end.
3。采药：
program p1104;
var f:array[0..500,0..2000]of integer;
val,time:array[1..2000] of integer;
i,j,k,l,t,m:integer;
begin
readln(t,m);
for i:=1 to m do
readln(time[i],val[i]);
for i:=0 to t do
f[0,i]:=0;
for i:=1 to m do
for j:=0 to t do
begin
f[i,j]:=f[i-1,j];
if (j>=time[i]) and (f[i-1,j-time[i]]+val[i]>f[i,j]) then
f[