var i,n,s:longint;
a:array[1..10] of longint;
begin
for i:=1 to 10 do
read(a[i]);
read(n);
s:=0;
for i:=1 to 10 do
if a[i]<=n then inc(s);
writeln(s);
end.
var i,n,s:longint;
a:array[1..10] of longint;
begin
for i:=1 to 10 do
read(a[i]);
read(n);
s:=0;
for i:=1 to 10 do
if a[i]<=n+30 then inc(s);
writeln(s);
end.
2 条评论
-
xiangshang12 LV 8 @ 2014-11-05 22:33:15
理论上来说是不能的，尤其是pascal，几行合并会有冲突。。。。骚年，转C++吧，最短只要2行呦！！
-
@ 2014-11-05 23:28:01
骚年，转Python吧，最短只要1行呦！！
k=map(int,raw_input().split());l=input()+30;print len(filter(lambda x:x<=l,k)) -
@ 2014-11-06 07:25:35
Orz...
-
@ 2014-11-06 09:12:00
呜。。。争取吧。。。
-
@ 2014-11-06 10:06:52
Python。。。很高端的样子。。
-
-
@ 2014-11-04 22:39:52
这个还要说的人也是脑残。。。。
你还写了这么多行。。。。。。。-
@ 2014-11-05 21:51:57
膜拜大神...
我是不是应该写成一行呢？
-
- 1
