Из элементов массива Р сформировать массив М той же размерности по правилу: если номер четный, то М[I]=I*P[I],если нечетный, то M[I]=-P[I].

USES Crt;
 CONST   N=15;
 VAR
   P, M: ARRAY[0..N] OF INTEGER;
   I: BYTE;
 BEGIN
   ClrScr;  Randomize;
   WriteLn(' Значения элементов массива ');
   FOR I:=1 TO N DO Begin
     P[I]:=Random(70);  Write(P[I]:3);
   End;   WriteLn;
   WriteLn(' Значения элементов сформированного массива M');
   FOR I:=1 TO N DO Begin
     IF I mod 2 =0 Then M[I]:=P[I]*I Else M[I]:=-P[I];
     Write(M[I]:4);
   End;
 END.