多加了几个附件，删不掉了

lag函数可以实现。http://mp.weixin.qq.com/s/mQLjJf85O743UB7Lf2kDkw

data have;
        input Al Cr Mn;
datalines;
1 7 12
2 8 13
3 9 14
4 10 15
5 11 16
6 12 17
;
run;

data want;
        set have;
        array x Al Cr Mn;
        array y Al1 Cr1 Mn1;
        do i=1 to dim(x);
                y(i)=(lag1(x(i))+lag2(x(i)))/2;
        end;
        drop i;
run;

请楼主跑下程序，看是否你想要的结果

谢谢您的回复，就是这样的