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

Question

Информатика

Виталий

5 мая, 01:07

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

+1

Ответы (1)

Знаете ответ?

Романа · Answer 1

Program n1;

const n=10;

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

i, p: integer;

begin

p:=1;

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

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

writeln (p) ;

end.