gzyxs 2010-11-07 01:04:00
点我顶贴
收藏
删除
该题十分好玩，不过十分简单！
程序如下：
const g=30;
var
a:array[1..10] of integer;
r,i,gao:integer;
begin
r:=0;
for i:=1 to 10 do
read(a[i]);
readln;
readln(gao);
for i:=1 to 10 do
if gao+g>=a[i] then r:=r+1;
writeln(r);
end.