我写了一个，不知道对不对。感觉真如楼主说的要100个元素的话，扫描周期会很长啊

FUNCTION "块_1" : Void

{ S7_Optimized_Access := 'TRUE' }

VERSION : 0.1

   VAR_TEMP 

      i_pigs : Array[0..99] of Int;

      i_pipe_set : Array[0..99] of Int;

      o_pipe_rev : Array[0..99] of Int;

      n : Int;

   END_VAR

BEGIN

FOR #n := 99 TO 0 BY -1 DO

    IF #i_pigs[#n] = 0 THEN

        #o_pipe_rev[#n] := #i_pipe_set[#n];

        #n := #n - 1;

    ELSE

        EXIT;

    END_IF;

END_FOR;

END_FUNCTION