Question

pascal 程序 为何编译不成功？

program class1;
var
height[1..11] of longint;
h,i:longint;
begin
for i:=1 to 10 do
全部代码
program class1;
var
height:array[1..11]of longint;
i,h,count:longint;
begin
for i:=1 to 10 do
read(height[i]);
read(h);
h:=h+30;
count:=0;
for i:=1 to 10 do
if (h>=height[i]) then inc(count);
writeln(count);
end.

Answer 1

Free pascal 2.4.0

调试通过

见图片 确实可以的

Answer 2

什么题目？

Answer 3

明明成功的。
题目呢？

Answer 4

可能是编译器问题。可退出编译器再进入，如果不行，请重启电脑，如果还不行，建议重新下载编译器。