1.陶陶摘苹果:var a:array[1..10] of integer;b,i,s:integer;beginfor i:=1 to 10 do read(a);read(b);for i:=1 to 10 doif a<=b+30 theninc(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;beginread(l,m);for i:=1 to m doread(x,y);... |