Program taotao;

var i,m:integer;

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

　　n:100..200;

begin

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

readln(n);

n:=n+30;

for i:=1 to 10 do begin

if (a[i]

Program taotao;

var i,m:integer;

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

n:100..200;

begin

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

readln(n);

n:=n+30;

for i:=1 to 10 do begin

if (a[i]

这题难度应为0吧

var

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

b,i,s:integer;

begin

s:=0;

for i:=1 to 10 do

read(a[i]);

readln;

readln(b);

b:=b+30;

for i:=1 to 10 do

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

writeln(s);

end.

大多数人都这样写吧？

program ex;

var

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

n,i,zh:integer;

begin

zh:=0;

for i:= 1 to 10 do

read(a[i]);

read(n);

for i:= 1 to 10 do

if a[i]

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

i,s,high:longint;

begin

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

readln(high);

for i:=1 to 10 do

if high+30>=apple[i] then inc(s);

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

无语。。。。这种题目没有存在的意义。。。

#include

#include

#include

using namespace std;

int main(int argc, char *argv[])

{

ofstream fout ("tree.out");

ifstream fin ("tree.in");

int l,n,treenum=0;

fin>>l>>n;

bool tree[l+1];

int right[n],left[n],i=0;

for (i=0;ileft[i]>>right[i];

for(int j=0;j

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

program j;

var

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

n,b,c,max:longint;

begin

for b:=1 to 10 do

read(a);

readln;

read(n);

begin

for b:=1 to 10 do

begin

if a

什么题目......

容易死了....

#include

using namespace std;

int main() {

int apple[10],h,i,c;

for(i=0;i>apple);

cin>>h,h+=30;

for(i=c=0;i

program cyf(input,output);

var

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

i,j,n,k:integer;

begin

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

for i:=1 to 10 do if n+30>=a[i] then k:=k+1;

write(k);

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

i,len,c:longint;

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

begin

for i:=1 to 10 do

read(a[i]);

read(len);

for i:=1 to 10 do

if a[i]> 　　New! CSC WorkGroup 邀请赛IV 评测完毕 (2008-11-12 23:33:35) 　　New! 首届海峡两岸青少年程序设计大赛 大陆地区邀请赛 完成评测 (2008-11-9 1:01:22) 　　海峡两岸程序设计大赛将延期举行 (2008-10-25 22:56:19) 　　第一届海峡两岸青少年程序设计竞赛即将举行 (2008-10-7 17:59:38) 　　Orz教主第一次模拟赛服务器故障的说明 (2008-9-21 14:23:28)

（复制玩玩）

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

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

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

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

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

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

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

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

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

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

哈哈。。好SB的题

简单到S

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

begin

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

read(c);

for b:=1 to 10 do if a

此题不可做！

这题够水，贴个更水的程序（秒杀）

/*apple.c by Tydus*/

int main(_){

static int __[12];

for(_=0;_>9?scanf("%d",&__[10]),0:1;scanf("%d",&__[_++]));

for(_=0;_>9?printf("%d",__[11]),0:1;__[11]+=__[10]+30>=__[_++]?1:0);

return 0;

}

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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