PASCAL ABC
Дан одномерный массив, элементы которого - целые числа. Также дано целое число XX. Вставьте в заданный массив элемент XX перед всеми четными элементами.
Формат входных данных
В первой строке входного файла заданы два целых числа: NN и XX (−1000≤X≤1000)(−1000≤X≤1000), где NN - количество элементов в массиве (1≤N≤100)(1≤N≤100). В следующей строке находится 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
Дан одномерный массив, элементы которого - целые числа. Также дано целое число XX. Вставьте в заданный массив элемент XX перед всеми четными элементами.
Формат входных данных
В первой строке входного файла заданы два целых числа: NN и XX (−1000≤X≤1000)(−1000≤X≤1000), где NN - количество элементов в массиве (1≤N≤100)(1≤N≤100). В следующей строке находится 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
More Questions From This User See All
Answers & Comments
Verified answer
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