I feel embarrased. Your is better than mine. Having result is one thing and having a good usable output is another aspect.

data aa ;
input x1-x10 ;
datalines ;
1 0 1 0 1 0 1 1 1 1
0 1 0 0 0 0 0 0 0 0
1 1 1 1 0 1 0 1 0 1
1 0 1 1 0 0 0 0 1 1
;
data aa1;
set aa;
array one x1-x10;
array two xx1-xx10;
do i= 1 to 10;
if one(i) ne 1 then two(i)=.;
else two(i)=one(i);
end;
run;

proc means data = aa1 nway;
output out=work n= mean=/autoname;
run;
data work1;
set work;
length var_name $ 4;
array one x1_Mean x2_Mean x3_Mean x4_Mean x5_Mean x6_Mean x7_Mean x8_Mean x9_Mean x10_Mean;
array two xx1_N xx2_N xx3_N xx4_N xx5_N xx6_N xx7_N xx8_N xx9_N xx10_N;
do i=1 to 10;
freq = two(i) ;
Percent = one(i) ;
var_name = 'x'||compress(i);
output;
end;
keep var_name freq percent;
run;

ods csv file= "result.csv";
proc print data = work1 noobs;
run;
ods close;

楼上强人啊