1 2 3 4 5 6 7 8 9 10 11 12 | n = 8
DIM a(n)
FOR i = 1 TO n
INPUT a(i)
NEXT
s = 1
FOR i = 1 TO n
s = s * a(i)
NEXT
PRINT s
|
Тестирование выполнено в программе QB64 ( Скачать )
Похожие записи/страницы:
- Написать программу для нахождения суммы всех отрицательных элементов массива (5,5) - QBasic(Бейсик)
- Используя операторы open, input#n, print#n, print# using, close написать программу для нахождения суммы всех…
- Написать программу, нахождения суммы функции Z и Z1 для всех пар чисел (х,у), вводимых с клавиатуры. в том…
- Написать программу для нахождения суммы 1/sqr1 +1/sqr2+1/sqr3+.... . +1/sqr n - QBasic(Бейсик)
- Для одномерного числового массива A(N), длиной N сложить алгоритм и программу для нахождения части от деления…
- Составить программу для вычисления суммы значений элементов массива A(N), имеющих четные индексы, и произведение…