各位高手，修改一下：统计每行>=1或者<=-1的数值出现次数。不好意思！

data have;
        array bearr{*} be13-be28;
        do i = 1 to 50;
                do j =1 to dim(bearr);
                        bearr(j) = int(10 * (ranuni(5)-0.5));
                end;
                output ;
        end;
        drop i j;
run;


data want;
        count_lem1 = 0;
        count_gep1 = 0;
        set have;
        array be{*} be13-be28;
        do i=1 to dim(be);
                if be(i) <= -1 then count_lem1= count_lem1+1;
                if be(i) >=  1 then count_gep1= count_gep1+1;
        end;
run;

谢谢，高~高~高~高手！