program p1102(input,output);

var ab:array [0..11] of longint;

　　 i,tall,zs:longint;

begin

for i:=1 to 10 do

　　read(ab[i]);

readln;

readln(tall);

zs:=0;

for i:=1 to 10 do

　　if tall+30>=ab[i]

　　 then zs:=zs+1;

writeln(zs);

end.

编译通过...

├ 测试数据 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 ab:array [0..11] of longint;

i,tall,zs:longint;

begin

for i:=1 to 10 do

read(ab[i]);

readln;

readln(tall);

zs:=0;

for i:=1 to 10 do

if tall+30>=ab[i]

then zs:=zs+1;

writeln(zs);

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 a:array[1..10] of integer;

s,b,c:integer;

begin

for b:=1 to 10 do

read(a[ b ]);

read(s);

s:=s+30;

c:=0;

for b:=1 to 10 do

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

write(c);

end.

program vijos_P1102;

var

a:array[1..10] of 100..200;

i,j:integer;

h:100..120;

begin

j:=0;

for i:=1 to 10 do

read(a[i]);

read(h);

for i:=1 to 10 do

if a[i]

连我都做得出，这道题太失败

so so so so so so easy

program pingguo;

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

a,m,c:integer;

begin

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

readln(c);

m:=0;

for a:=1 to 10 do begin

if b[a]

so easy.只需要存进数组再比较即可！

var

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

n,i,k:integer;

begin

k:=0;

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

readln(n);

for i:=1 to 10 do

begin

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

end;

writeln(k);

readln;

end.

绝对是非常简单的

const

n=10;

var

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

tao,i,j:integer;

begin

for i:=1 to n do

read(a[i]);

readln(tao);

tao:=tao+30;

for i:=1 to n do

if a[i]

var

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

b,c,d:integer;

begin

for b:=1 to 10 do

read(a);

readln(c);

c:=c+30;

for b:=1 to 10 do

if c>=a then

d:=d+1;

write(d);

end.

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

对于水题，坚决秒杀

program dsa;

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

n,z,i:integer;

begin

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

read(n);

n:=n+30;

z:=0;

for i:=1 to 10 do if a[i]

program apple;

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

h,s,i,j:longint;

begin

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

read(h);

h:=h+30;

s:=0;

for i:=1 to 10 do begin

if h>=a[i] then

s:=s+1;

end;

write(s);

end.

program p1102;

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

i,j,k:integer;

begin

assign(input,'apple.in');

assign(output,'apple.out');

reset(input);

rewrite(output);

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

read(j);

k:=0;

for i:= 1 to 10 do

begin

a[i]:=a[i]-j-30;

if a[i]

program p1102;

var

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

i,j,k:integer;

begin

for i:= 1 to 10 do

read(a[i]);

read(j);

k:=0;

for i:= 1 to 10 do

begin

a[i]:=a[i]-j-30;

if a[i]

水题

program apple;

var i,j,n:longint;

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

begin

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

readln;

read(n);

j:=1;

for i:=1 to 10 do begin

a[i]:=a[i]-30;

if a[i]

program p1102;

var i,sum,m,n:longint;

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

begin

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

readln(m);

for i:=1 to 10 do

if a[i]

program temp;

var

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

i,j,k,m,n:integer;

begin

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

readln(n);　　 n:=n+30;

for i:=1 to 10 do if a[i]

program temp;

var

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

i,j,k,m,n:integer;

begin

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

readln(n);　　 n:=n+30;

for i:=1 to 10 do if a[i]

program apple;

var h,i,j,s:integer;

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

begin

j:=0;

for i:=1 to 10 do

　　begin

　　 read(s);

　　 a[i]:=s;

　　end;

readln;

read(s);

for i:=1 to 10 do

　　if a[i]