Pascal abc дан одномерный массив, элементы которого - вопрос №8676338 от licach12 20.03.2021 01:49

Question

Информатика: Pascal abc дан одномерный массив, элементы которого - целые числа. также дано целое число xx. вставьте в заданный массив элемент xx перед всеми четными элементами. формат входных данных в первой строке входного файла заданы два целых числа: nn и xx (−1000≤x≤1000)(−1000≤x≤1000), где nn - количество элементов в массиве (1≤n≤100)(1≤n≤100). в следующей строке находится nn чисел, по абсолютному значению не превосходящих 1000. формат выходных данных в выходной файл выведите полученный массив. при выводе

licach12 · 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