Перед и после каждого четного элемента массива, заменить нечетные элементы нулями.

[pezz]

1)Дан массив целых чисел. Перед и после каждого четного элемента массива, заменить нечетные элементы нулями!).

[Хыиуду]

for i:=1 to n do
if not(odd(A)) then
begin
for j:=1 to N do if odd(A[j]) then A[j]:=0;
break;
end;
Это с учетом того, что ноль - четное, и если в массиве есть хотя бы одно четное число, то все нечетные будут заменены нулями. Цепная реакция.
Хотите без нее - спрашивайте, что непонятно.