Перед и после каждого четного элемента массива, заменить нечетные элементы нулями.
Добавлено: 29 янв 2010, 13:31
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;
Это с учетом того, что ноль - четное, и если в массиве есть хотя бы одно четное число, то все нечетные будут заменены нулями. Цепная реакция.
Хотите без нее - спрашивайте, что непонятно.