Question

Из элементов массива Р сформировать массив М того же размера по правилу: если номер четный , то Рi=i*Mi, если нечетный, то Рi=-Mi
10 класс паскаль АБЦ, команда Рандомайз вроде будет использоваться. Помогите кто сможет

Answer 1

uses Crt;
const n=10;
Type Mas=array [1..n] of integer;
var  P, M: Mas;
i: integer;

begin
ClrScr;
for i:=1 to n do
   P[i]:=10+random(20);
for i:= 1 to n do
    Write (P[i]:4);
WriteLn; WriteLn;
for i:=1 to n do
   if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i];
for i:=1 to n do
  Write (M[i]:4);
ReadLn;
end.