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.