主题：[求助]悬赏1个金币~求20个不等于0的数值求和..

//将f,addsum两个变量设置为全局变量

variable:f=0,addsum=0;

for i=datacount downto 1 do
if not(flag[i]=0) then begin
addsum:=addsum+flag[i];
f:=f+1;//记录不为0的个数
end
if f=20 then break;

s_flag:addsum,linethick0;
=========================