data test;
    input a1 a2 a3 a4;
        array tmp (*) _numeric_;
        max=max(of _numeric_);
        length namelist $20;
        do i=1 to dim(tmp);
           if max=tmp(i) then do;
            namelist=catx(",",namelist,vname(tmp(i)));
                end;
        end;
        put "Max value:" max "    Variable:" namelist;
        cards;
2  3  0  1
1  2  2  0
0  3  3  0
;

太！好！用！了！
谢谢你，辛苦了！

太！好！用！了！
谢谢你，辛苦了！

学习了！