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

t,j,b,c:integer;

begin

readln(b,c);

for b:=1 to b do readln(a);

for j:=1 to b-1 do

if a>a[j];

then a:=a[j];a[j]:=t;

t:=a;

writeln(t);

end.

var

i,h,b,c:longint;

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

begin

for i:=1 to 10 do

read(a[i]);

read(b);

b:=b+30;

for h:=1 to 10 do

begin

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

end;

writeln(c);

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

int main(void)

{

int a[10],i,j,h,temp=0;

for(i=0;i

var

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

mark,c,i:integer;

begin

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

readln;

read(c);

for i:=1 to 10 do

if c+30>=a[i] then inc(mark);

writeln(mark);

end.

program e8;

var

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

h,i,s:integer;

begin

s:=0;

for i:=1 to 10 do

read(a[i]);

readln;

read(h);

h:=h+30;

for i:=1 to 10 do

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

writeln(s);

end.

不说什么了，注意等于的情况

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 a;

var i,j,k:longint;

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

begin

for i:=1 to 10 do

read(a[i]);

readln（k);

j=0;

for i=1 to 10 do

if a[i]-30> then

j=j+1;

writeln(j);

end.

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

楼下的

if apple[i]

main()

{int a[10],h,i,j=0;

scanf("%d,%d",&a[10],&h);

for(i=0;i=h+30)

else j++;

}

printf("%d",j);

}

ft。。。。。。

普及组真是好啊 。。。。。。

直接在提交栏写真是爽。。....也只有这种题可以.唉......

只有这样的简单题才可以抚慰我那被noip刺伤了的心

不知道对不对喔`\`

5555我两次才AC...

看到这道题 好怀念啊 。。。。

那次OI的考试好好玩

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

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

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

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

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

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

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

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

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

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

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

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

纪念

`\`\这个题`\`有点那个\`\`\ `\

不 是很简单 `\`而是“相当”简单！！！！！！！\`\`\

`\`\` ``\`\`` 如果NOIP上全是这样的题就好了

全国人民就都可以拿一等奖了

所有的中学生就等着加分算了