Дан массив целых чисел из 15 частей, заполненный случайным образом nbsp;числами

USES Crt;
nbsp;VAR
nbsp;nbsp;nbsp;P,P1:ARRAY[0..15] OF INTEGER; nbsp;nbsp;P2:ARRAY[0..30] OF INTEGER;
nbsp;nbsp;nbsp;I,J,E,D,PP,PO,FL: BYTE; nbsp;nbsp;K,PRP:INTEGER;
nbsp;BEGIN
nbsp;nbsp;nbsp;ClrScr; nbsp;nbsp;Randomize;
nbsp;nbsp;nbsp;WriteLn( Значения частей массива P);
nbsp;nbsp;nbsp;FOR I:=1 TO 15 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;P[I]:=Random(70)-20; nbsp;nbsp;Write(P[I]:4);
nbsp;nbsp;nbsp;End; nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp;J:=1;
nbsp;nbsp;nbsp; 1. Удаление
nbsp;nbsp;nbsp;FOR I:=1 TO 15 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;E:=Абс(P[I]) mod 10; nbsp;nbsp;Выделение единиц
nbsp;nbsp;nbsp;nbsp;nbsp;D:=ABS(P[I]) div 10; nbsp;nbsp;Выделение 10-ов
nbsp;nbsp;nbsp;nbsp;nbsp; формирование нового массива
nbsp;nbsp;nbsp;nbsp;nbsp;IF (Elt;gt;5) AND (Dlt;gt;5) THEN Begin nbsp;P1[J]:=P[I]; J:=J+1; nbsp;End;
nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;WriteLn( Массив, в котором нет элементов с цифрой 5);
nbsp;nbsp;nbsp;FOR I:=1 TO J-1 DO
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;Write(P1[I]:4);
nbsp;nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp; 2. Вставка
nbsp;nbsp;nbsp;Write( Введите значение переменной nbsp;); nbsp;nbsp;ReadLn(K);
nbsp;nbsp;nbsp;J:=1;
nbsp;nbsp;nbsp;FOR I:=1 TO 15 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;P2[J]:=P[I]; nbsp;nbsp;J:=J+1;
nbsp;nbsp;nbsp;nbsp;nbsp;IF ABS(P[I]) mod I = 0 THEN Begin P2[J]:=K; J:=J+1; nbsp;End;
nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;WriteLn( Массив, в котором после частей, кратных собственному номеру, вставлено число =,K);
nbsp;nbsp;nbsp;For I:=1 TO J-1 DO
nbsp;nbsp;nbsp;nbsp;nbsp;Write(P2[I]:4);
nbsp;nbsp;nbsp;WriteLn;
nbsp;nbsp;nbsp; 3. Перестановка
nbsp;nbsp;nbsp; Нахождение первого положительного и заключительного отрицательного элемента
nbsp;nbsp;nbsp;FL:=0;
nbsp;nbsp;nbsp;FOR I:=1 TO 15 DO Begin
nbsp;nbsp;nbsp;nbsp;nbsp;IF (P[I]gt;0) AND (FL=0) THEN Begin PP:=I; nbsp;FL:=1; nbsp;End;
nbsp;nbsp;nbsp;nbsp;nbsp;IF P[I]lt;0 THEN PO:=I;
nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp; перестановка местами первого положительного и заключительного отрицательного
nbsp;nbsp;nbsp;PRP:=P[PP]; nbsp;nbsp;P[PP]:=P[PO]; nbsp;nbsp;P[PO]:=PRP;
nbsp;nbsp;nbsp;WriteLn( Массив, в котором 1-ый положительный и последний отрицательный);
nbsp;nbsp;nbsp;WriteLn( поменяли местами);
nbsp;nbsp;nbsp;FOR I:=1 TO 15 DO
nbsp;nbsp;nbsp;nbsp;nbsp;Write(P[I]:4);
nbsp;END.