Даны 10 чисел . Составить алгоритм вычисления произведения отрицательных чисел
Answers & Comments
Gmaildss
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]; Write('symma', s); end.
Answers & Comments
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];
Write('symma', s);
end.