Помогите, пожалуйста :) Из элементов массива P сформировать массив А той же размерности по правилу: если элемент четный, то Р[i]=i*М[i];если нечетный, то Р[i]= - М[i].
Помогите, пожалуйста :)
Из элементов массива 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.
Не нашли ответ?
Похожие вопросы