讨论 / 陶陶摘苹果
天一 2011-01-26 20:17:00
点我顶贴 收藏 删除
var a:array[1..10]of integer;

i,s,b:integer;

begin

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

readln(b); begin

if a[i]<=b+30 then s:=s+1; end;

writeln(s);

readln

end.

为什么运行结果为空白?

#1 wangxiaoyang@2018-06-09 20:42:55
回复 删除
为什么你的程序里多一个begin???
#2 wangxiaoyang@2018-06-09 20:43:53
回复 删除
而且你没有循环,为什么要加begin和end
查看更多回复
提交回复