data raw;
input num    t    x;
cards;
1          78        4
1          79        5
1          80         0
1          81          7
2          79          .
2          80          2
2          81          4
3          78          0
3          79           1
3           80          2
3           81           3
4           79          0
4            81         8
;run;
proc sort data=raw;by num;run;
data y;set raw;by num;if first.num and x=0 then output ;run;
proc sql;
select * from raw
where not exists
(select * from y where raw.num=y.num)
;quit;

Here is a simple solution assuming the data is sorted by num.

data raw;
input num    t    x;
cards;
1          78        4
1          79        5
1          80         0
1          81          7
2          79          .
2          80          2
2          81          4
3          78          0
3          79           1
3           80          2
3           81           3
4           79          0
4            81         8
;
run;

data wanted;
   retain flag 0;
   set raw;
   by num;
   if first.num and x ne 0 then flag=1;
   if flag=1 then output;
   if last.num then flag=0;
   drop flag;
run;

谢谢大家！没想到这么快就有高手回复了 太好了！真的很感谢 我都要绝望了！谢谢！

跑出来啦，再次感谢，人大经济论坛真是个卧虎藏龙的地方，谢谢！

额~ 还想厚脸皮的问一句 如果“第一个x为0，或缺失值 则所有num=1时的观测值都删去”怎么操作啊
谢谢！