Question

Помогите решить, буду очень благодарен.

1. Дан массив, найти произведение отрицательных элементов массива.
2. Дан массив, заменить все отрицательные элементы массива их модулями

Answer 1

Var mass:array[1..20] of integer;

    P,i:integer;

begin

p:=1;

'Заполнение массива

randomize;

for i:=1 to 20 do begin

mass[i]:=random(30)-15;

write(mass[i],' ');

if mass[i]<0 then p:=p*mass[i]

end;

writeln('Произведение отрицательных чисел = ', p);

writeln('Новый массив');

for i:=1 to 20 do begin

 if mass[i]<0 then mass[i]:=abs(mass[i]);

 write(mass[i],' ');

end;

readln;

end.