求一道PASCAL编程..

来源：百度知道 编辑：UC知道 时间：2024/05/03 07:25:35
编程求一批用0作结束标志的数列,统计其中有多少个正数和多少个负数.

先帮我解释下题目,然后解用 while语句,,别太深..

在线等

program ice;
var
a:array[1..100]of integer;
i,n,z,f:integer;
begin
readln(n); //数列的个数
for i:=1 to n do
read(a[i]);
while a[i]<>0 do
begin
if a[i]<0 then inc(z);
else if a[i]>0 then inc(f);
inc(i);
end;
writeln('zhengshu',z);
writeln('fushu',f);
end.