Решение

Первое, на что необходимо обратить внимание, - это описание массива: на сколько элементов может уве­личиться массив? Максимальное количество элементов, после которых будет вставлен новый элемент, совпада­ет с количеством элементов массива, ведь может слу­читься так, что все элементы массива обладают задан­ным свойством. Поэтому массив может увеличиться максимум в два раза, а значит, соответствующее опи­сание будет следующим:

Type myarray=Array[1..2*n] Of Integer;

Если мы будем просматривать элементы массива с начала и вставлять новый элемент после элемента с за­данным свойством, то номер последнего элемента каж­дый раз будет меняться, кроме того, придется пропус­кать ("перепрыгивать") новый (вставленный) элемент, поэтому решение будет не очень эффективным.

Удобнее просматривать массив с конца, тогда встав­ляемый элемент мешать не будет.

Составим программу.

Program Example_107;

Const n=10; dd=51;

Type myarray=Array[1..2*n] Of Integer;

Var A: myarray;

x, k, i: Integer;

{x - значение нового элемента,

k - счетчик вставленных элементов}

Procedure Init2 (Var m:myarray);

{Процедура заполнения (инициализации)

массива случайными числами}

...

Procedure Print1 (n1: Integer; m: myarray);

{Процедура вывода (распечатки) массива}

...

Procedure Insert3 (k1, x1: Integer;

Var m: myarray);

Var i: Integer;

Begin

{Сдвиг элементов на n+k - это в данный

номер последнего элемента}

For i:=n+k Downto k1+1 Do

m[i+1]:=m[i];

m[k1+1]:=x1;

{Вставка элемента на место - после k1-го}

Inc(k); {Увеличение счетчика вставленных

элементов}

End;

Begin

Init2(А);

Print1(n, A);

Writeln('Введите вставляемое число');

Readln(x);

k:=0;

For i:=n Downto 1 Do

If A[i] Mod 3=0 Then Insert3(i, x, A);

Print1(n+k,A); {Вывод массива после

вставки в него всех элементов}

Readln;

End.