Из элементов массива р сформировать массив м того же размера по правилу: если номер четный , то рi=i*mi, если нечетный, то рi=-mi 10 класс паскаль абц, команда рандомайз вроде будет использоваться. кто сможет
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.
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.