Имеется массив А из N произвольных чисел — А(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, решающую задачу: Вычислить произведение всех положительных чисел меньше 10. — QBasic(Бейсик)

disel
1
Например, если А = { 2, 24, –3, 6, 5, –2, 33}, результат: 2*6*5=60
1
2
3
4
5
6
7
8
9
10
INPUT "vvedite kolichestvo elementov ", n
DIM a(n)
FOR i = 1 TO n
    INPUT "vvedite ocherednoy element ", a(i)
NEXT
p = 1
FOR i = 1 TO n
    IF a(i) > 0 AND a(i) < 10 THEN p = p * a(i)
NEXT
PRINT p

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment