发个题解

非常简单的一道题目，其实可以假设淘淘一直站在板凳上，所以淘淘的高度为n+30

代码不长，如下：

var n,i,k:longint;
    a:array[1..10] of longint;
begin
  for i:=1 to 10 do read(a[i]);
  readln(n);n:=n+30;//淘淘的最大高度
  k:=0;
  for i:=1 to 10 do
  begin
    if a[i]<=n then inc(k);//累积苹果数
  end;
  writeln(k); 
end.