CLS
INPUT "vvedite razmer massiva"; n
DIM a(n)
p = 1
FOR i = 1 TO n
PRINT "vvedite element"; i
INPUT a(i)
NEXT
FOR i = 1 TO n
IF a(i) <> 0 THEN p = p * a(i)
NEXT
CLS
FOR i = 1 TO n
PRINT a(i);
NEXT
PRINT
PRINT "pr elementov <> 0 ="; p
Тестирование выполнено в программе QB64 ( Скачать )
Похожие записи/страницы:
- Ввести два одномерных массива (первый из N целых чисел, второй- из 5 различных целых чисел). Удалить из первого…
- Заданы одномерные массивы X(N),Y(M),Z(L). Для каждого из них: 1) Подсчитать количество элементов равных нулю…
- Вычислить сумму и количество положительных, сумму и количество отрицательных элементов массива А, состоящего из…
- Записать в массив С номера положительных элементов массива R из N элементов - QBasic(Бейсик)
- Заданы одномерные массивы X(N),Y(M),Z(L). Для каждого из них: - Подсчитать количество элементов равных нулю -…
- Создать массив, который получался бы из элементов двух других массивов, которые заданы. То есть, даны два…