Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

CLS
p = 1
DIMA(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
READA(i)
PRINTA(i),
p = p *A(i)
NEXT i
PRINT
PRINT p