zjh0128 2011-10-20 06:13:00
点我顶贴
收藏
删除
program taotao；
var s,i,l:integer；
a:array[1..10] of integer；
f1,f2:text；
begin
assign(f1,’input.txt’)；
assign(f2,’output.txt’)；
reset(f1)；
rewrite(f2)；
for i:=1 to 10 do
readln(f1,a[i])；
s:=0；
readln(f1,l)；
for i:=1 to 10 do
if l+30>a[i] then s:=s+1；
write(f2,s)；
end.