Вставка элементов в одномерный массив

[DarkDeidara]

Помогите пожалуйста с задачкой.
Дана последовательность вещественных чисел. После всех чётных элементов вставить число X.
Выглядит примерно так, но почему-то вставляет число перед чётным элементом

uses crt;
const n=10;
var a:array[1..n+1] of integer;
    i,x,k:integer;
begin
     clrscr;
     writeln ('Исходный массив:');
     for i:=1 to n do
     begin
          write ('a[',i,']=');
          readln (a[i]);
     end;
     writeln;
     writeln ('Введите число для вставки:');
     readln(x);
     for i:=n downto 1 do
     begin
          if a[i] mod 2=0 then
          k:=i;
          a[i+1]:=a[i];
          a[k]:=x;
     end;
     writeln;
     writeln ('Полученый массив:');
     for i:=1 to n+1 do
     writeln ('a[',i,']=',a[i]);
     readln;
end.

Если где-то это уже решалось дайте ссылку пожалуйста))

[andrewpalkin]

if a[i] mod 2=0 and a[i+1] mod 2=1 then
a[i+1]:=x;
end;

Попробуй так , если я правильно понял , что тебе надо

[DarkDeidara]

Спасибо. Написал так как посоветовали, теперь число Х вставляется после четных, НО оно заменяет нечётные)) Как сделать чтоб и Х вставлялось и нечётные на местах оставались??

[Mad_Cat]

сдвигать вправо увеличивая размер массива!

if a[i] mod 2=0 and a[i+1] mod 2=1 then
begin 
n:=n+1;
for j:=n downto i+2 do
a[j]:=a[j-1];
a[i+1]:=x;

[DarkDeidara]

или я что-то не так написал или что. Выдаёт массив как есть без изменений.....
я сделал так:

uses crt;
const n=10;
var a:array[1..n+1] of integer;
    i,x,k,j,kol:integer;
begin
     clrscr;
     writeln ('Исходный массив:');
     for i:=1 to n do
     begin
          write ('a[',i,']=');
          readln (a[i]);
     end;
     writeln;
     writeln ('Введите число для вставки:');
     readln(x);
     for i:=n downto 1 do
     kol:=0;
     if (a[i] mod 2=0) and (a[i+1] mod 2=1) then
     begin
          kol:=kol+1;
          for i:=n downto i+2 do
          a[i]:=a[i-1];
          a[i+1]:=x;
     end;
     writeln;
     writeln ('Полученый массив:');
     for i:=1 to n+kol do
     writeln ('a[',i,']=',a[i]);
     readln;
end.

[Sibedir]

1

var a:array[1..n+1] of integer;

Вы застолбили размерность массива (max = n+1)
2
добавте begin...end
kol:=0 вынесли за for
второй for должон быть для j
3
Мой вариант

var
  a: array [1..100] of Integer;
  n, i, x, k, j, kol: integer;
begin
  n := 10;
  writeln ('Vvedite massiv:');
  for i := 1 to n do begin
    write ('a[', i, ']=');
    readln (a[i]);
  end;
  for i := n+1 to 100 do begin
    a[i] := 1;
  end;

  writeln;
  write ('Vvedite X: ');
  readln(x);

  kol:=0;
  for i := n downto 1 do begin
    if (a[i] mod 2=0) and (a[i+1] mod 2=1) then begin
      kol:=kol+1;
      for j := n+kol downto i+2 do
        a[j] := a[j-1];
      a[i+1]:=x;
    end;
  end;

  writeln;
  writeln ('Result:');
  for i := 1 to n+kol do
    writeln ('a[', i, ']=', a[i]);
  readln;
end.

[DarkDeidara]

Спасибо Большое!! работает)) НО!! только если в массив ввести числа от 1 до 10 и они обязательно расположены чётный за нечётным)) а если в массиве все чётные он не вставляет Х ))

[Sibedir]

если в массиве все чётные он не вставляет Х ))

Меня вставляет X)

было: 2 2 2 2 2 2 2 2 2 2
вставляю: 11
получаю: 2 2 2 2 2 2 2 2 2 2 11

[Serebro]

Для чего это условие:

(a[i+1] mod 2=1)?

[DarkDeidara]

а доложно быть так 2 11 2 11 2 11 2 11 и т.д.