Помогите составить програму. В(30) э [-40;40]
найти все произведения положительный чисел, найти сумму все отрицательных чисел.
Массив
for i:=1 to 30 do
if B>0 then proizv:=proizv*B
else if B<0 then summ:=summ+B;
if B>0 then proizv:=proizv*B
else if B<0 then summ:=summ+B;
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.