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

[Sibedir]

if (a[i] mod 2=0) and (a[i+1] mod 2=1) then begin

заменить на то, что было раньше

if a[i] mod 2=0 then

[KobolD]

Сообщение от DarkDeidara

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

Так тебе после каждого четного чсла надо вставлять элемент?
тогда надо сначала посчитать количество четных элементов в массиве,

 for i := 1 to n do begin
    if (a[i] mod 2=0) then begin
      kol:=kol+1;
    end;
  end;

потом создать новый массив размерностью n + кол-во четных эленентов

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

и уже в него записывать первоначальный массив добавляя элементы там где надо.

k:=0
 for i := 1 to n do begin
    Otvet[i+k]:=a[i]
    if (a[i] mod 2=0) then begin
      k:=k+1;
      Otvet[i+k]:=x
    end;
  end;

[alex_fcsm]

Вот это условие зачем???

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

После всех чётных элементов вставить число X

потом создать новый массив размерностью n + кол-во четных эленентов

Задайте сразу массив 2*n

Так вроде

uses crt;
const n=10;
var i,j,kol,X:integer;
    a:array[1..2*n] of integer;

begin
randomize;
kol:=n;
readln(x);
clrscr;
for i:=1 to kol do
 begin
  a[i]:=random(50);
  write(a[i]:3);
 end;
writeln;
i:=1;
repeat
if (a[i] mod 2 =0)and(a[i]<>x) then
 begin
 inc(kol);
  for j:=kol downto i+1 do
   a[j]:=a[j-1];
  a[i+1]:=X;
 end;
 inc(i);
until i>=kol;
for i:=1 to kol do
 write(a[i]:3);
readln;
end.

[DarkDeidara]

Спасибо теперь точно всё работает!! Просто прекрасно))

[Sibedir]

2 alex_fcsm

if (a[i] mod 2 =0)and(a[i]<>x) then

Это не есть правильно. Ибо, если элемент массива = x и является четным, то вставки не произойдет, а должна.

Пусть дан массив:
7 0 2 6 7 0 5 1 2 9
Результат по вашей программе:
7 0 2 2 6 2 7 0 2 5 1 2 9
А должно быть:
7 0 2 2 2 6 2 7 0 2 5 1 2 2 9

[andrewpalkin]

Сообщение от Sibedir

2 alex_fcsm

Это не есть правильно. Ибо, если элемент массива = x и является четным, то вставки не произойдет, а должна.

Пусть дан массив:
7 0 2 6 7 0 5 1 2 9
Результат по вашей программе:
7 0 2 2 6 2 7 0 2 5 1 2 9
А должно быть:
7 0 2 2 2 6 2 7 0 2 5 1 2 2 9

Это не есть правильно , когда разобрались с условием задачи . Когда я это написал , то я понял , что надо было писать х , после последовательность четных чисел .

[alex_fcsm]

Исправления копеечные)

uses crt;
const n=10;
var i,j,kol,X:integer;
    a:array[1..2*n] of integer;

begin
clrscr;
randomize;
kol:=n;
readln(x);
clrscr;
for i:=1 to kol do
 begin
  a[i]:=random(50);
  write(a[i]:3);
 end;
writeln;
i:=1;
repeat
if (a[i] mod 2 =0) then
 begin
 inc(kol);
  for j:=kol downto i+1 do
   a[j]:=a[j-1];
  a[i+1]:=X;
  inc(i);
 end;
 inc(i);
until i>=kol;
for i:=1 to kol do
 write(a[i]:3);
readln;
end.

[DarkDeidara]

Всё тема закрыта. Всем спасибо!! я закончил практику на 5))