:) из элементов массива p сформировать массив а той же размерности по правилу: если элемент четный, то р[i]=i*м[i]; если нечетный, то р[i]= - м[i].

Program enot;
Var P,M: array[1..5] of integer;
i:integer;
begin
for i:= 1 to 5 do
p[i]:= random (11)-5;
for i:= 1 to 5 do
 if p[i] mod 2 =0 then
 m[i]:=i*p[i] 
else m[i]:=-p[i];
 for i:= 1 to 5 do
 write(m[i]:4);
 end.