求教SAS解决Cox-Staut趋势存在性问题

小弟刚学SAS 不长时间，今遇到非参问题Cox-Staut趋势存在性问题，希望高手能给与指导，非常感谢，论坛币不多，这五个只是表达感谢之意，希望不要嫌弃。
题：某地区10年来降雨量数据表：
年份        1971 1972 1973 1974 1975 1976 1977 1978 1979 1980
降雨量    206    223  235 264  229  217 188  204  182  230

问：该地区这10年降雨量是否有变化？
下面是小弟写的代码，可以实现此题的解答，希望哪位热心人能给出解此类问题的通用的代码，或者给小弟优化一下，非常感谢！

1. 
   
2. data rain;
   
3.     c=5;/*当n为偶数时，c=n/2；当n为奇数时，c=(n-1)/2。其中n为观测个数*/
   
4.     array y(10) y1-y10 ;
   
5.     array q(10) q1-q10 ;
   
6.     input y1-y10 q1-q10 @@;
   
7.     do i=1 to 5;
   
8.         if q>q[i+c] then m+1;
   
9.         if q<q[i+c] then n+1;
   
10.     end;
    
11.     min=min(m,n);
    
12.     p=probbnml(0.5,5,min);
    
13.     if p>0.05 then
    
14.           put 'p=' p '>0.05 不能拒绝H0：该地区前10年降雨量无趋势';
    
15.     if p<0.05 then
    
16.           put 'p=' p '<0.05 拒绝原假设';
    
17.     cards;
    
18.     1971 1972 1973 1974 1975 1976 1977 1978 1979 1980
    
19.     206   223 235  264   229  217  188  204  182  230
    
20. ;
    
21. run;

复制代码

不用数组可以解决这个问题么，请高手给出代码，非常感谢。