求助！怎么用sas编这个程序？

shiyiming

k=1 to 10;
a1=1;b1=2;c1=0;
a(k)=b(k-1)+c(k-1);
b(k)=a(k)+c(k-1);
c(k)=a(k)+b(k);
怎样用循环语句实现这个程序？

shiyiming

问题解决：

data aa;
array a{10} a1-a10;
array b{10} b1-b10;
array c{10} c1-c10;
a{1}=1;b{1}=2;c{1}=0;

do j=2 to 10;
a{j}=b{j-1}+c{j-1};

b{j}=a{j}+c{j-1};

c{j}=a{j}+b{j};

end;
run;