以下是引用晒银纸在2015-05-30 23:06:52的发言 >1楼：先定义
ibool[100] of bool;
IboolFlag[100] of bool;
Plusflag[100] of bool
N:INT;



程序部分：

for N:=0 to 100 by 1 do
if not ibool[N] and IboolFlag[N] then
Plusflag[N]:=true;
else
Plusflag[N]:=false;
end_if;
IboolFlag[N] :=ibool[N];
end_for;

如果 Plusflag[N] 只要一个输出 就把数组功能改成一个点就可以了 。 以上程序没经过模拟，可能有考虑不周的地方