Вставка нескольких элементов

Задача. Вставить число после всех элементов массива, кратных трем.

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

Type

MyArray[1..2*n] of Integer;

Второе. Если мы будем просматривать массив с начала и вставлять новый после элемента с заданным свойством, то номер последнего элемента каждый раз может меняться, кроме того, будет просматриваться и новый (вставленный) элемент и его необходимо будет пропускать, поэтому решение будет не очень эффективным. Лучше всего просматривать массив, начиная с конца, тогда вставляемый элемент мешать не будет. Кроме того, номер последнего элемента можно будет знать (если знать, сколько элементов вставлено на данный момент), при этом просмотр будет последовательным от N-го до 1-го.

Program VstavkaN;

Const

n=10; dd=51;

Type

MyArray = Array [1..2*n] of Integer;

Var

A: MyArray;

k, x, i: Integer;

{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}

Procedure InsertMas1(Var m: MyArray; n: integer);

...

{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}

Procedure InsertMas2(Var m: MyArray; n: integer);

...

{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}

Procedure PrintMas(m: MyArray; n: integer);

...

{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}

Procedure InsertN(Var m: MyArray; Var n: integer; Mesto, Element: Integer;);

Var

i: Integer;

Begin

for i:= n downto Mesto+1 do

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

m[Mesto+1]:= Element;

Inc[n];

End;

{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}

Begin

...

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

Readln(x);

k:=0;

for i:=n downto 1 do

if A[i] mod 3=0

then

InsertN(A, n, i, x);

...

End.

Задание. Дополните программу необходимыми операторами и комментариями и добейтесь работоспособности программы. Покажите результат работы учителю для оценки.

Задачи для самостоятельного решения

1. Вставить элемент после первого отрицательного элемента.

2. Вставить элемент перед отрицательным последним элементом.

3. Вставить два элемента: первый – после максимального элемента, второй – перед максимальным элементом.

4. Вставить по одному элементу перед всеми элементами, кратными заданному числу.

5. Вставить по одному элементу перед всеми отрицательными элементами.

6. Вставить два элемента: первый – после всех элементов, больших данного числа Р, а второй – перед всеми элементами, большими данного числа Р (Р вводить с клавиатуры).

7. Вставить число А перед всеми элементами, большими А, а число В – после всех элементов, меньших его.

Занятие 5. Перестановка элементов массива.