var

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

c,b,i:longint;

begin

for i:=1 to 10 do

read(a[i]);

readln(c);

for i:= 1 to 10 do

if c+30>=a[i] then

inc(b);

writeln(b);

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

using namespace std;

ifstream fin("apple.in");

ofstream fout("apple.out");

int main(){

　　int a[10],i,n,s=0;

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

　　fin>>n;

　　for(i=0;i

这种水题当年只拿了90分。。。

var i,n,max:integer;

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

begin

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

readln(n);

n:=n+30;

for i:=1 to 10 do

if a[i]

#include

int main ()

{

int a[11],i,j=0,b;

for (i=1;i

for i:=1 to 10 do

if a[i]

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program apple;

var

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

b,i,max:integer;

begin

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

readln;

read(b);

for i:=1 to 10 do

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

write(max);

end.

#include

using namespace std;

int main(){

int a[10],i,n,s=0;

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

cin>>n;

for (i=0;i

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

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

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

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

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

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

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

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

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

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

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

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

program apple;

var

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

b,i,max:integer;

begin

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

readln;

read(b);

for i:=1 to 10 do

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

write(max);

end.

so easy!!!!!!!!!!!!!

var

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

n,i,tot:integer;

begin

for i:=1 to 10 do

read(a[i]);

readln;

read(n);

for i:=1 to 10 do

if (n+30>=a[i])

then inc(tot);

write(tot);

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

#include

using namespace std;

ifstream fin ("apple.in");

ofstream fout ("apple.in");

int main (){

int s,a[10],i,x;

fin>>s;

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

if(h+30>=a[i]){x++;}

fout

Nov.Demon

var a:array[0..11] of integer;i,m,ans:integer;

begin

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

for i:=1 to 10 do if m+30>=a[i] then ans:=ans+1;writeln(ans);

end.

haha!

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

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

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

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

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

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

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

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

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

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

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

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

program r;

var

a,c,d:integer;

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

begin

for a:=1 to 9 do read(b[a]);

readln(b[10]);

readln(d);

c:=0;

for a:=1 to 10 do

if b[a]

program apple;

var

i,t,n:integer;

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

begin

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

readln(n);

t:=0;

for i:=1 to 10 do if 30+a[i]>=n then inc(t);

writeln(t)

end.