大家鄙视我吧....我这题提交了两次!!~~~第一次错了9个点,得了10分.....

估计是全国最低的了.....伤心中

另外,貌似我是第700个AC的...

输出用write，注意 -_-!

建议直接在提交框中写，这样比较有趣

这题的通过率怎么只有64%啊

怎么会有一道这样的题啊！！！

我狂晕~~~~~~~~~~~~~

超级弱智,把身高和椅子长加起来再一个一个比较就好了....

……NOIP2005第一题，弱智啊！

我来给Pascal党发福利！！请记住托儿索就是我
var
a:array[1..10] of longint;
n,i,t:longint;
begin
t:=0;
for i:=1 to 10 do read(a[i]);
read(n);
for i:=1 to 10 do a[i]:=a[i]-30;
for i:=1 to 10 do
if a[i]<=n then inc(t);
write(t);
end.

我来给Pascal党发一个，记住哦：我是国服压缩！！！
var
a:array[1..10] of longint;
n,i,t:longint;
begin
t:=0;
for i:=1 to 10 do read(a[i]);
read(n);
for i:=1 to 10 do a[i]:=a[i]-30;
for i:=1 to 10 do
if a[i]<=n then inc(t);
write(t);
end.

#include <iostream>
using namespace std;
int height[20],H,s;
int main()
{
for(int i=0;i<10;i++)cin >> height[i];
cin >> H;
H += 30;
for(int i=0;i<10;i++)s+=!(H<height[i]);
cout << s;
}

#include <iostream>
using namespace std;
int height[20],H,s;
int main()
{
for(int i=0;i<10;i++)cin >> height[i];
cin >> H;
H += 30;
for(int i=0;i<10;i++)s+=!(H<height[i]);
cout << s;
}

Haskell一行过（可见此题有多水）。
输入整个文件(getContents)，
全部用库里的函数读入(map read.words)，
将最后一个与前面的分离(last、init)并用库函数筛选(filter)，
再用库函数求出筛选出的序列的长度(length)，
最后输出(print)。

main=print.length.(\l->filter(last l+30>=)(init l)).map read.words=<<getContents