Помогите пожалуйста с информатикой, буду благодарна за помощь. Написать программу для...

0 голосов
9 просмотров

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


Информатика (158 баллов) | 9 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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

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

(5.6k баллов)