Program apple;

var

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

b,c,d,e,i:integer;

begin

for i:=1 to 10 do

read(a[i]);

readln(b);

c:=b+30;

for e:=1 to 10 do

if a[e]

记录号 Flag 得分 记录信息 环境 评测机 程序提交时间

R410181 Accepted 100 From lzwhjl00－

　 P1102 FPC Vivid Puppy 2007-8-4 15:43:50

编译通过...

├ 测试数据 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,sum:longint;

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

begin

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

readln(n);

for i:=1 to 10 do

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

writeln(sum);

end.

这道题是幼儿园小朋友都会做的题，谁不会做谁就可以放心地去死了

此乃超级弱智题

如果谁连这道题目都要用作弊来解决，那只能说明一个问题————这个人是个超级大傻瓜！

var a:array[1..10];

i,j,k:integer;

begin

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

readln(j);

j:=j+30;

k:=0;

for i:=1 to 10 do

begin

if a[i]

var

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

i,x,n:integer;

begin

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

readln(n);

n:=n+30;

x:=0;

for i:=1 to 10 do

begin

if a[i]

var

p,n,i:integer;

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

begin

for i:=1 to 10 do

read(a[i]);

readln(n);

n:=n+30;

p:=0;

for i:=1 to 10 do

if a[i]

var

p,n,i:integer;

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

begin

for i:=1 to 10 do

read(a[i]);

readln(n);

n:=n+30;

p:=0;

for i:=1 to 10 do

if a[i]

var

ans,i,n:longint;

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

begin

ans:=0;

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

readln(n);

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

writeln(ans);

end.

program pingguo;

var

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

i,j,p,n:byte;

begin

for i:=1 to 10 do

read(a[i]);

readln(n);

p:=0;

for i:=1 to 10 do

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

writeln(p);

end.

program P1102;

var

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

b,i,j,h:integer;

begin

j:=1;

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

readln(h);

for i:=1 to 10 do

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

writeln(j);

end.

62%了...

大家共同创造AC神话！！

最大流

建立源点s，汇点t，插入一个点a，再插入十个点i1,i2...i10,如果A[i]>=k+30，连边G[a,i]，容量为1。用ford-folkerson算法做即可。

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

效率不是很高，但也能过...

[请神牛bs我]

var

ans,i,n:longint;

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

begin

ans:=0;

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

readln(n);

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

writeln(ans);

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..11]of integer;

t,s:integer;

begin

for t:=1 to 11 do read(a[t]);

begin

for t:=1 to 10 do

if a[t]

var

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

m,s,x:integer;

begin

for s:=1 to 12 do read(a);

read(m);

m:=m+30;

for s:=1 to 12 do

if a

就两字,弱智!