程序里加了条件：var1 var2有1个缺失，则删除观测。

data test_new (drop=flag_2) ;
  set test ;
  array test test1-test5 ;
  do i = 1 to 5 ;
    if test[i] > 2 then flag_2 = 1 ;
        if test[i] < 2 and low_2 = . then low_2=test[i] ;
        if low_2 ne . and high_2 = . and test[i] > 2 then high_2 = test[i] ;
  end ;
  if flag_2 = . then delete ;
  drop i ;
run;

1. 你有点没说明白：
...或者所有的变量都小于2（如第47个观测）...
第47条观测是：47 2.56 . . 0.4 .

2. 我给你推荐一个函数，smallest，你把这个函数的用法看明白，你就知道咋做了。

do i=1 to dim(test) until var1; 这种句子能工作吗？

Here you go.

data test1(drop=i );
set test;
array test{*} test1-test5;
do i=1 to dim(test) ;
if ^missing(test{i}) & test{i}<2  then do;  keep=test{i} ; i=dim(test); end;
end;
if max(of test:)<2 then delete;
run;