紧急求助啊

[lilijunxp]

请问：任意输入20个数，显示正，负，零的个数的程序怎么编？拜托各位高手，我急用啊

[xiolig]

为了应付考试吗？

STORE 0 To np,nz,nn
FOR i = 1 TO 20
INPUT "请输入下一个数:" TO n
DO CASE
CASE n > 0
np = np + 1
CASE n < 0
nn = nn + 1
OTHERWISE
nz = nz + 1
ENDCASE
ENDFOR
?"正数：",np
?"0 数：",nz
?"负数：",nn

[liuri璇玑]

上次不是在水园回答你了?：）