data a;
input x1-x5;
datalines;
1 2 3 4 5
2 3 4 5 6
4 5 6 7 8
;
data b;
set a;
array test(5) x1-x5;
do i=1 to dim(test)-1; /*注意这里面的减一*/
if i=1 then prod=test(i); /*注意如果第一个数字,那么就为起始*/
prod=prod*test(i+1); /*迭代*/
end;
drop i;
run;
proc print;
run;
注意学习的地方就是迭代
Obs x1 x2 x3 x4 x5 prod
1 1 2 3 4 5 120
2 2 3 4 5 6 720
3 4 5 6 7 8 6720