var a:array[1..1000] of integer;

i,n:integer;

begin

for i:=1 to 10 do

read(a[i]);

readln(n);

for i:=1 to10 do

begin

if a[i]+30>a[i] then s:=s+1;

end;

writeln(s);

end.

program lt1;

var

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

b,c,i:integer;

begin

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

for i:=1 to 10 do

begin

if b+30>=a[i] then c:=c+1;

end;

writeln(c);

end.

RZ

http://chengchen2008.blog.163.com/blog/static/28346475200972311528910/

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

var f,i,w:longint;

a:array[0..100000]of longint;

begin

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

readln(f);

for i:=1 to 10 do

if f+30>=a[i] then inc(w);

write(w);

end.

Flag 　　 Accepted

题号 　　P1102

类型(?) 　　模拟

通过 　　10000人

提交 　　16166次

通过率 　　62%

难度 　　1

第10000个AC

猥琐的地方是从0开始.......

program ex1;

var

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

i,j,k:integer;

begin

for i:=1 to 10 do

read a[i];

　　p:=0

　　for i:=1 to 10 do

　　 if j+30>=[a]

　　　　then k:=k+1;

writeln(k);

end.

program ex1;

var

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

i,j,p:integer;

begin

for i:=1 to 10 do

read a[i];

p:=0

for i:=1 to 10 do

if j+30>=[a]

then p:=p+1;

writeln(p);

end.

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 P1102(input,output);

var

high:array [1..10] of longint;

i,all,total:integer;

begin

for i:=1 to 10 do

read(high[i]);

read(total);

all:=0;

for i:=1 to 10 do

if total+30>=high[i] then

all:=all+1;

writeln(all);

end.

哈哈哈！提高成功率的方法就是——刷水题

水。。。。。。。。。。。。。。。。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

#include

main()

{int d,b,i,c=30;

int a[10];

printf("请输入10个苹果的高度");

for(i=0;i

水题……

var a:array[1..10]of integer;

n,tot,i:integer;

begin

for i:=1 to 10 do

read(a[i]);

readln(n);

n:=n+30;

for i:=1 to 10 do

if n>=a[i] then inc(tot);

writeln(tot);

end.

编译通过...

├ 测试数据 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,n,tall,q:integer;

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

begin

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

readln;

read(tall);

for i:=1 to 10 do

if a[i]

var

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

i,j,n:integer;

begin

j:=0;

for i:=1 to 10 do

read(a[i]);

read(n);

n:=n+30;

for i:=1 to 10 do

if a[i]

为什么我提交的程序一直是Running.......

var a:array[1..10]of integer;

b,c,d:integer;

begin

for b:=1 to 10 do

read(a);

read(d);

d:=d+30;

c:=0;

for b:=1 to 10 do

if d>=a then c:=c+1;

write(c);

end.

var

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

i,m:integer;

begin

m:=0;

for i:=1 to 10 do

read(a[i]);

readln;

for m:=1 to 10 do

if a[i]30 then

end.