Даны 10 чисел . Составить алгоритм вычисления произведения отрицательных чисел

Question

Даны 10 чисел . Составить алгоритм вычисления произведения отрицательных чисел

Comments

Сделать программой или блок-схемой?

---

блок-схемой

Answer 1

Var s,i : integer;   
z: array [1..20] of integer;
Beginfor i:= 1 to 11 do
Read (z[i]);s:=1;
for i:= 1 to 11 do
 if z[i]<0 then s:= s*z[i];<br>Write('symma', s);
end.