Даны 10 чисел . Составить алгоритм вычисления произведения отрицательных чисел
Сделать программой или блок-схемой?
блок-схемой
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.