Question

Составить блок схему и написать программу на языке программирования QBASIC. Дан массив А из 20 элементов. Найти произведение элементов массива. Результат вывести на печать.

Answer 1

CLS
p = 1
DIM A(20)
DATA 51, 22,33,44,25,76,87,28,229,30,81,882,43,84,85,26,37,88,99,10
FOR i = 1 TO 20
READ A(i)
PRINT A(i),
p = p * A(i)
NEXT i
PRINT
PRINT p