Question

pascal 语言:怎样算出数组中有几个数字?

比如数组a[i]中现在存有1 2 3 77 91，那怎么算出5？

Answer 1

楼上是错的（那是算数组物理大小）
pascal 数组中未更改的数为0
程序段
for i:= 1 to sizeof(a) do
if i<>0 then t:=t+1;
//t即为所求

需要注意的是，您好像不太理解存储，就像是a[i]大小是5 为 [1，0，2，0，0]
（数组执行 a[1]:=1;a[3]:=2; 的结果）
你说这个数组中有几个数字?如果您认为是5的话 函数 sizeof（a）即为所求

追答

for i:=1 to sizeof(a) do
func(a[i]);

'试下一个循环' 是这个意思吗？

Answer 2

可以吧数组定格初值 如0

代码：fillchar(a,sizeof(a),0
然后进行判断
代码： for i:=1 to 1000000 do
if a[i]<>0 then inc(ans);
writeln(ans);