Массив

Ответить
LeSnixToY
Сообщения: 1
Зарегистрирован: 13 май 2010, 19:09

Помогите составить програму. В(30) э [-40;40]
найти все произведения положительный чисел, найти сумму все отрицательных чисел.
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

for i:=1 to 30 do
if B>0 then proizv:=proizv*B
else if B<0 then summ:=summ+B;
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Ответить