51的话不知道那100个数放哪就当地址在r0里吧r1,r2, r3存0和正数,负数的个数然后输出显示
l1:clr r1
clr r2
clr r3
cjne r0,0,l2
inc r1
ajmp l1
l2:jnc l3
jc 4
l3:inc r2
inc r0
ajmp l1
l4:inc r3
inc r0
ajmp l1
zhengshu:=0;fushu:=0;ling:=0;
for i:=1 to 100 do
begin
readln(x);
if x>0 then inc(zhengshu);
if x=0 then inc(ling);
if x<0 then inc(fushu);
end;
writeln(zhengshu,' ',ling,' ',fushu);