Question

Дан одномерный массив, содержащий целые числа. Использовать дополнитель- ные массивы нельзя. Выполнить следующие действия: После всех четных элементов вставить .

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 var a := ReadArrInteger(n);

 var m := a.Count(p -> p.IsEven);

 SetLength(a, n + m);

 var j := a.High;

 for var i := n - 1 downto 0 do

 begin

   if a[i].IsOdd then

   begin

     a[j] := a[i];

     j -= 1

   end

   else

   begin

     a[j-1] := a[i];

     a[j] := 0;

     j -= 2

   end

 end;

 a.Println

end.