2005淘淘摘蘋果

標籤：

題目描述  Description

陶陶家的院子裡有一棵蘋果樹，每到秋天樹上就會結出10個蘋果。蘋果成熟的時候，陶陶就會跑去摘蘋果。陶陶有個30厘米高的板凳，當她不能直接用手摘到蘋果的時候，就會踩到板凳上再試試。
現在已知10個蘋果到地面的高度，以及陶陶把手伸直的時候能夠達到的最大高度，請幫陶陶算一下她能夠摘到的蘋果的數目。假設她碰到蘋果，蘋果就會掉下來。

 

 

 

 

輸入描述  Input Description

輸入包括兩行資料。第一行包含10個100到200之間（包括100和200）的整數（以厘米為單位）分別表示10個蘋果到地面的高度，兩個相鄰的整數之間用一個空格隔開。第二行只包括一個100到120之間（包含100和120）的整數（以厘米為單位），表示陶陶把手伸直的時候能夠達到的最大高度。

輸出描述  Output Description

 

輸出包括一行，這一行只包含一個整數，表示陶陶能夠摘到的蘋果的數目。

 

範例輸入  Sample Input

100 200 150 140 129 134 167 198 200 111

110

範例輸出  Sample Output

5

 

資料範圍及提示  Data Size & Hint   

題解：

類比。

判斷每一個蘋果淘淘能不能摘到，能摘到就累計答案。

var i,n,ans:longint;

    a:array[0..101]of longint;

begin

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

 readln(n);

 for i:=1 to 10 do

  if n+30>=a[i] then inc(ans);

 write(ans);

end.

2005淘淘摘蘋果