Помогите решить, буду очень благодарен. 1. Дан массив, найти произведение отрицательных...

Question

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

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

Comments

паскаль? Размер массива , как вводятся элементы, с клавиатуры или случайно ?

---

Да паскаль. А вот второе не понял

---

Сами элементы массива задаются вручную, или же автозаполнить его ?

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]<</span>0 then p:=p*mass[i]

end;

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

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

for i:=1 to 20 do begin

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

 write(mass[i],' ');

end;

readln;

end.