And if you aren't afraid of Perl you can:

my $replace = 0;

for my $x (0 .. $#array) {
    next unless # pass of your condition;
    $array[$replace++] = $array[$x];
}
[download]

or maybe even:

your condition and $array[$replace++] = $array[$_] for 0 .. $#array;
[download]