陶陶摘苹果 ACC PASCAL

陶陶摘苹果

题目描述

陶陶家的院子里有一棵苹果树，每到秋天树上就会结出10个苹果。苹果成熟的时候，陶陶就会跑去摘苹果。陶陶有个30厘米高的板凳，当她不能直接用手摘到苹果的时候，就会踩到板凳上再试试。

现在已知10个苹果到地面的高度，以及陶陶把手伸直的时候能够达到的最大高度，请帮陶陶算一下她能够摘到的苹果的数目。假设她碰到苹果，苹果就会掉下来。

输入输出格式

输入格式：

输入文件apple.in包括两行数据。第一行包含10个100到200之间（包括100和200）的整数（以厘米为单位）分别表示10个苹果到地面的高度，两个相邻的整数之间用一个空格隔开。第二行只包括一个100到120之间（包含100和120）的整数（以厘米为单位），表示陶陶把手伸直的时候能够达到的最大高度。

输出格式：

输出文件apple.out包括一行，这一行只包含一个整数，表示陶陶能够摘到的苹果的数目。

输入输出样例

输入样例#1：

100 200 150 140 129 134 167 198 200 111110

输出样例#1：

5

说明

NOIP2005普及组第一题

这道题有一个要注意的地方：

  一摸苹果就掉。

程序如下：

var

  n,i,s:longint;
  a:array[1..10]of longint;
begin
  for i:=1 to 10 do
    read(a[i]);
  readln(n);
  n:=n+30;//凳子的高度
  for i:=1 to 10 do
    if n>=a[i] then inc(s);//统计
  writeln(s);
end.