很好奇为什么明明很简单的题,我程序耗时那么久，跟自己家电脑配置有关么？ 我的程序如下。对于耗时那么久很不可思议诶。。。

program apple;

var

a:array[1..10] of 100..200;

n,i,j:integer;

begin

for i:=1 to 10 do read(a[i]);

readln(j);

inc(j,30);n:=0;

for i:=1 to 10 do

if j>=a[i] then inc(n);

writeln(n);

end.