第一次。。。。一次AC

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.

program taotao;

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

　　t,i,s:integer;

begin

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

readln(t);

t:=t+30;

for i:=1 to 10 do

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

writeln(s);

end.

program taotao;

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

t,i,s:integer;

begin

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

readln(t);

t:=t+30;

for i:=1 to 10 do

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

writeln(s);

end.

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

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

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

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

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

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

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

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

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

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

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

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

好简单啊..一次AC..

AC不到的那就是煞笔...

#include

using namespace std;

int main()

{

int l,a[11],sum=0;

for(int i=1;i>a[i];

}

cin>>l;

l+=30;

for(int i=1;i

#include

main()

{

int a[10],i,tall,get;

scanf("%d%d%d%d%d%d%d%d%d%d",&a[0],&a[1],&a[2],&a[3],&a[4],&a[5],&a[6],&a[7],&a[8],&a[9]);

scanf("%d",tall);

get=0;

tall=tall+30;

for(i=0;i

#include

void main()

{

int a[10],tall,i,ge=0;

scanf("%d%d%d%d%d%d%d%d%d%d",&a[0],&a[1],&a[2],&a[3],&a[4],&a[5],&a[6],&a[7],&a[8],&a[9]);

scanf("%d",&tall);

i=0;

tall=tall+30;

for(;i

program asa;

var

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

i,b,c,d:integer;

begin

for i:=1 to 10 do

read(a[i]);

read(b);

c:=30;

for i:=1 to 10 do

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

writeln(d);

end.

program p1102;

var i,high,ans:longint;

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

begin

for i:= 1 to 10 do

read(a[i]);

read(high);

inc(high,30);

ans:=0;

for i:= 1 to 10 do

if high>=a[i] then inc(ans);

writeln(ans);

end.

这种题……有意思么。、。当时联赛的时候我就过了……

不过……那次联赛我没用文件……（万恶的微机老师，他都不会用文件）

const filename='p1102';

var

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

i,k,ans:longint;

begin

assign(input,filename+'.in');reset(input);

assign(output,filename+'.out');rewrite(output);

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

read(k);ans:=0;k:=k+30;

for i:=1 to 10 do

if a[i]

program di;

var

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

a,b,c,i:longint;

begin

b:=0;

for i:=1 to 10 do

read(n[i]);

read(a);

c:=a+30;

for i:=1 to 10 do

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

writeln(b);

readln;

end.

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

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

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

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

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

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

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

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

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

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

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

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

一下子就AC了 太孬的题目

var

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

a,b,c,d:longint;

begin

d:=0;

for a:=1 to 10 do

read(i[a]);

read(c);

b:=c+30;

for a:=1 to 10 do

if a

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

水啊水啊水啊……

yinshang

Program yinshang;

Var

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

k,i,n:longint;

begin

for i:=i to 10 do

read(a[i]);

readln(n);

n:=n+30;

k:=0;

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

I like playing water games!

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.

program test;

var

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

t,i,j,ans,h:longint;

begin

ans:=0;

for i:=1 to 10 do

begin

read(x[i]);

end;

readln(h);

for i:=1 to 10 do

begin

if h+30>=x[i] then inc(ans);

end;

writeln(ans);

readln;

end.

var

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

a,b,c,d:longint;

begin

d:=0;

for a:=1 to 10 do

read(i[a]);

read(c);

b:=c+30;

for a:=1 to 10 do

if a

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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