编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

A+B式的题

program s2;

var shengao :integer;

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

i,k:integer;

begin

k:=0;

for i:=1 to 10 do

read(a[i]);

read(shengao);

for i:=1 to 10 do

begin

if shengao>=a[i] then inc(k)

else if shengao+30>=a[i] then inc(k);

end;

writeln(k);

end.

program q1;

const b=30;

var tot,i:integer;

x:integer;

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

begin

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

read(x);

tot:=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

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

j,i,l:integer;

begin

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

readln(l);

j:=0;

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

writeln(j);

end.

var a:array[100..200] of integer;

i,n,l,s:integer;

begin

for i:=1 to 10 do

read(a[i]);

read(n);

l:=n+30;

s:=0;

for i:=1 to 10 do

if a[i]

program apple;

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

i,ta,sum:integer;

begin

for i:=1 to 10 do

read(ap[i]);

readln;

read(ta);

sum:=0;

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

program www;

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

h,s,i:integer;

begin

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

readln;

read(h);

s:=0;

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

program qqq;

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

i,h,s:integer;

begin

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

readln;

read(h);

s:=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

var

a:array[1..10]of integer;i,j,n:integer;

begin

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

readln;

readln(n);

for i:=1 to 10 do

if n+30>=a[i] then inc(j);

writeln(j);

end.

program njy;

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

　　i,h,s:integer;

begin

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

readln;

read(h);

s:=0;

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

var

i,h,s:integer;

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

begin

for i:=1 to 10 do

read(a[i]);

readln;

read(h);

s:=0;

h:=h+30;

for i:=1to 10 do

if h>a[i]

then s:=s+1;

writeln(s);

end.

var

i,a,b,d:integer; c:array[1..10] of integer;

begin

a:=0;

d:=30;

for i:=1 to 10 do

read(c[i]);

readln;

readln(b);

for i:= 1 to 10 do

if b+d >= c[i]

then a:=a+1;

writeln(a);

end.

var

a,i,sum:integer;

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

begin

sum:=0;

for i:=1 to 10 do

readln(b[i]);

read(a);

a:=a+30;

for i:=1 to 10 do

if a>b[i]

then sum:=sum+1;

writeln(sum);

end.

program ex1;

var

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

b,i,n:integer;

begin

n:=0;

for i:=1 to 10 do

readln(a[i]);

readln(b);

b:=b+30;

for i:=1 to 10 do

if a[i]

program ex;

var i,n,s:integer;

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

begin

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

read(n);

n:=n+30;

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

var

i,b,c:integer;

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

begin

for i:=1 to 10 do

read(a[i]);

readln;

read(b);

b:=b+30;

c:=0;

for i:=1 to 10 do

if b>=a[i]

then c:=c+1;

write(c);

end.

program ex;

var i,n,s:integer;

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

begin

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

read(n);

n:=n+30;

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

#include

#include

main()

{

int h,temp,i=0;

int a[10];

for(i=0;i

var

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

s,n:longint;

begin

for i:=1 to 10 do

read(a[i]);

readln(n);

s:=0;

for i:=1 to 10 do

if (a[i]>n)or(z[i]