PASCAL ABCДан одномерный массив, элементы которого - целые числа. Также дано

PASCAL ABC
Дан одномерный массив, элементы которого - целые числа. Также дано целое число XX. Воткните в заданный массив элемент XX перед всеми четными элементами.
Формат входных данных
В первой строке входного файла заданы два целых числа: NN и XX (1000X1000)(1000X1000), где NN - количество частей в массиве (1N100)(1N100). В следующей строке находится NN чисел, по безусловному значению не превосходящих 1000.
Формат выходных данных
В выходной файл выведите приобретенный массив. При выводе делите элементы массива пробелом.
Образцы:
Вход
4 6
9 8 7 5
Выход
9 6 8 7 5
Вход
6 -6
11 1 13 -6 -6 3
Выход
11 1 13 -6 -6 -6 -6 3

Задать свой вопрос
2 ответа
Var a: array[1..2*100] of integer; 
  n,x,i,j,k : integer;
begin
readln(n,x);
for i:=1 to n do read(a[i]);
k:=0;
for i:=n downto 1 do
 if a[i] mod 2=0 then 
  begin
   k:=k+1;
   for j:=n+k downto i+1 do a[j]:=a[j-1];
   a[i]:=x;
  end;
for i:=1 to n+k do write(a[i],' ');
end.

Пример:
6 -6
11 1 13 -6 -6 3
11 1 13 -6 -6 -6 -6 3
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var n:=ReadInteger('XX=');
  var L:=new Listlt;integergt;;
  foreach var t in a do begin
    if t.IsEven then L.Add(n);
    L.Add(t)
    end;
  a:=L.ToArray; a.Println;
end.

Пример
n= 13
-27 41 -19 -34 -18 4 0 -10 -6 46 -47 47 -49
XX= 77
-27 41 -19 77 -34 77 -18 77 4 77 0 77 -10 77 -6 77 46 -47 47 -49
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт