data a;
input a @@;
cards;
7 3 6 8 9 2 10 7 8 4
;

proc sql noprint;
select count(*) into: nobs
from a;
quit;

%macro sltmin;
%let n=%eval(&nobs-1);
data b;
set a;
b1=lag(a);
%do i=2 %to &n;
  b&i=lag&i(a);
%end;
b=min(of a -- b&n);
keep a b;
run;
%mend;
%sltmin

data b;
   set a;
   retain b;
   b=min(a,b);
run;

两种算法，一种是按照排序的算法，不过只是用两值比较后最小值跟下一个比较，遍历一次。用data step的array做。
第二种是用sql的cartesian来做。