Question

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

Answer 1

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.