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]

系统正在处理您的请求 请勿刷新此页……

您有新消息

请点击 这里 进入消息中心

16 / 39 (41%) 　 首页 站务 公告　|　题库/分类/原题 记录 比赛 团队 交流 讨论　|　U-Space 搜索 换肤 正體顯示　|　登出

公告 News >> 　　关于Vijos被黑的声明 (2008-12-8 22:16:46) 　　关于近期Vijos被挂马的说明 (2008-12-4 22:15:23) 　　CSC WorkGroup 邀请赛IV 评测完毕 (2008-11-12 23:33:35) 　　首届海峡两岸青少年程序设计大赛 大陆地区邀请赛 完成评测 (2008-11-9 1:01:22) 　　海峡两岸程序设计大赛将延期举行 (2008-10-25 22:56:19)

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

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

R1161902 Accepted 100 From 董－

　 P1102 FPC Vijos Dolphin 2009-2-28 21:54:48

From zhouyc

陶陶摘苹果 全国青少年信息学奥林匹克分区联赛 (NOIp) 竞赛原题

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

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]

var

i,n,a:integer;

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

begin

for i:= 1 to 10 do

read(m[i]);

read(n);

a:=0;

for i:=1 to 10 do

if (m[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]

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的题