Question

Помогите пожалуйста с информатикой, буду благодарна за помощь. Написать программу для решения задач на языке Quick Basic. Найти произведение всех отрицательных элементов массива В(15).

Answer 1

Будем считать, что массив В уже в памяти компьютера. Тогда

cls
result = 1
for i=0 to 15
       if b(i)<0 then result = result * b(i)
next
print "Произведение отрицательных членов массива В равно"
print result