В одномерном массиве найти произведение ненулевых элементов

(Задать рандомно)

Question

Информатика

Евгений

16 июля, 02:13

В одномерном массиве найти произведение ненулевых элементов

(Задать рандомно)

+5

Ответы (1)

Знаете ответ на вопрос?

Нинона · Answer 1

Program n1;

const n=10;

var a: array [1 ... n] of integer;

i, p: integer;

begin

randomize;

p:=1;

for i:=1 to n do a[i]:=random (10) ;

for i:=1 to n do if a[i]0 then p:=p*a[i];

writeln (p) ;

end.

В одномерном массиве найти произведение ненулевых элементов(Задать рандомно)

В одномерном массиве найти произведение ненулевых элементов

(Задать рандомно)