Помогите, пожалуйста :) Из элементов массива P сформировать массив А той же размерности...

Question

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

Comments

Что еще за массив М?

---

Я сама не понимаю, но у меня в карточке так написано. Может преподаватель ошиблась.

---

Может тогда надо сформировать массив М, а не А?

---

Да, наверное. Я также подумала :)

---

Ладно, решу эту задачу, как я ее понял.

---

Спасибо тебе большое :)

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.