Here is an example for a 10 by 10 case.

data t1;
array x(*) x1 - x10;
  do i = 1 to 10;
     do j=1 to 10;
        x(j)=ceil(ranuni(123)*10);
     end;
    output;
  end;
  drop i j;
run;

proc print; run;

data X_LE_9;
  set t1;
  array x(*)  x1-x10;
  i+1;
  do j=1 to dim(x);
      if x(j) >=9 then do;
           x_le_9=x(j);
           output;
     end;
  end;
  keep i j     x_le_9;
run;

proc print; run;

引用楼上的一段程序，后面是我的方法。

data t1;
array x(*) x1 - x10;
  do i = 1 to 10;
     do j = 1 to 10;
        x(j) = ceil( ranuni(123) * 10 );
     end;
    output;
  end;
  drop i j;
run;

data t2;
        array m{10,10} _temporary_;
        retain m;
        set t1 end=eof;
        array temp{10} x1-x10;
        i + 1;
        do j = 1 to 10;
                m{i,j} = temp{j};
        end;
        if eof then do;
                do i = 1 to 10;
                                put m{i,1} m{i,2} m{i,3} m{i,4} m{i,5} m{i,6} m{i,7} m{i,8} m{i,9} m{i,10};
                end;
        end;
run;

mark

你好，我试了一下程序，但不知道为什么换了10，换成其他的数竟然不能运行，是怎么回事啊，请教！