RosettaCodeData/Task/Loops-Foreach/SAS/loops-foreach.sas
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

11 lines
163 B
SAS

/* Initialize an array with integers 1 to 10, and print their sum */
data _null_;
array a a1-a10;
n=1;
do over a;
a=n;
n=n+1;
end;
s=sum(of a{*});
put s;
run;