Алгоритмы удаления, вставки и перестановки элементов

Задача 1. Дан массив A, состоящий из 12 элементов. Элементы массива - произвольные целые числа. Поменять местами значения 1 и 2 элементов, 3 и 4 и т.д. Измененный массив вывести на экран.

USES Crt;

VAR

A: ARRAY[0..12] OF INTEGER;

I: BYTE; PP: INTEGER;

BEGIN

ClrScr; Randomize;

WriteLn(' Значения элементов массива');

FOR I: =1 TO 12 DO Begin

A[I]: =Random(20); Write(A[I]: 3);

End; WriteLn;

I: =1;

WHILE I< =12 DO Begin

{перестановка элементов местами, используя промежуточную переменную PP }

PP: =A[I]; A[I]: =A[I+1]; A[I+1]: =PP;

I: =I+2;

End;

WriteLn(' Значения элементов измененного массива');

FOR I: =1 TO 12 DO

Write(A[I]: 3);

END.

Задача 2. Дан массив целых чисел из 15 элементов, заполненный случайным образом числами из промежутка [-20, 50].

1. Удалить из него все элементы, в записи которых есть цифра 5.

2. Вставить число K после всех элементов, кратных своему номеру (К вводится с клавиатуры).

3. Поменять местами первый положительный и последний отрицательный элементы.}

USES Crt;

VAR

P, P1: ARRAY[0..15] OF INTEGER; P2: ARRAY[0..30] OF INTEGER;

I, J, E, D, PP, PO, FL: BYTE; K, PRP: INTEGER;

BEGIN

ClrScr; Randomize;

WriteLn(' Значения элементов массива P');

FOR I: =1 TO 15 DO Begin

P[I]: =Random(70)-20; Write(P[I]: 4);

End; WriteLn;

J: =1;

{ 1. Удаление }

FOR I: =1 TO 15 DO Begin

E: =ABS(P[I]) mod 10; {Выделение единиц}

D: =ABS(P[I]) div 10; {Выделение десятков}

{ формирование нового массива }

IF (E< > 5) AND (D< > 5) THEN Begin P1[J]: =P[I]; J: =J+1; End;

End;

WriteLn(' Массив, в котором нет элементов с цифрой 5');

FOR I: =1 TO J-1 DO

Write(P1[I]: 4);

WriteLn;

{ 2. Вставка }

Write(' Введите значение переменной '); ReadLn(K);

J: =1;

FOR I: =1 TO 15 DO Begin

P2[J]: =P[I]; J: =J+1;

IF ABS(P[I]) mod I = 0 THEN Begin P2[J]: =K; J: =J+1; End;

End;

WriteLn(' Массив, в котором после элементов, кратных своему номеру, вставлено число =', K);

For I: =1 TO J-1 DO

Write(P2[I]: 4);

WriteLn;

{ 3. Перестановка }

{ Нахождение первого положительного и последнего отрицательного элемента }

FL: =0;

FOR I: =1 TO 15 DO Begin

IF (P[I]> 0) AND (FL=0) THEN Begin PP: =I; FL: =1; End;

IF P[I]< 0 THEN PO: =I;

End;

{ перестановка местами первого положительного и последнего отрицательного'}

PRP: =P[PP]; P[PP]: =P[PO]; P[PO]: =PRP;

WriteLn(' Массив, в котором первый положительный и последний отрицательный');

WriteLn(' поменяли местами');

FOR I: =1 TO 15 DO

Write(P[I]: 4);

END.

.....................................................................................................................................

Практические задания

.....................................................................................................................................

Дан массив целых чисел из 10 элементов, заполненный случайным образом из промежутка [-40, 30].

1. Удалить из него все элементы, которые состоят из одинаковых цифр (включая однозначные числа).

2. Вставить число К перед всеми элементами, в которых есть цифра 1 (К вводится с клавиатуры)

3. Переставить первые три и последние три элемента местами, сохраняя порядок их следования.