Напишите программу подсчета произведения всех отрицательных элементов заданного...

Question

Напишите программу подсчета произведения всех отрицательных элементов заданного целочисленного массива размером 30 элементов, в предположении, что в массиве есть хотя бы 1 отрицательный элемент (Паскаль)

Comments

значения в массиве задаются как? или нужен только цикл подсчета произведения?

---

Дада, сам цикл. Но если будет все оформление, буду искренне рад и благодарен.

Answer 1

Var mas30: array [1..30] of integer;
var i, proz: integer;
begin
proz:=1;
for i:=1 to 30 do  begin mas30[i]:=-5+random (11); //Заполнение массива 
write (mas30[i], '  '); //вывод значений массива 
end; 
writeln;
for i:=1 to 30 do if mas30[i]<0 then proz:=proz*mas30[i]; //Подсчет произведения отриц элементов<br>writeln (proz);
end.

Comments

Помогите пожалуйста !!

---

написать программу подсчета максимального количества подряд идущих отрицательных элементов в целочисленном массиве из 30 элементов