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

Задача 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. Переставить первые три и последние три элемента местами, сохраняя порядок их следования.