对不起，原数据有误，已更新，谢谢！

楼主可以试试这个程序：

data have;
        input obs v0 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12;
        cards;
1  10 9 4 5 2 0  2 1 0 0 0 0 0
2 4 9 4 1 2 0 2 1 0 1 2 3 3
3  10 3 4 2 1 0 2 1 0 0 0 0 0
4 4 9 4 5 1 0 2 1 0 0 4 4 4
5 5 2 0 2 1 0 0 0 0 0 0 0 0
;

data wanted;
    set have;
        censor=(v12 ne 0);
        array v(13) v0-v12;
        do i=13 to 2 by -1;
        if v(i-1) >=v(i) then remission=i-2;
                if v(i)=0 then resolve=i-1;
                if v(i-1)< v(i) then i=0;
        end;
        if v12>=V0 then do; remission=12; resolve=12; end;
        if censor=1 then resolve=12;
        drop i;
run;