Задан массив А (1:20). Найти произведение всех его ненулевых элементов. На паскале через массивы!)

Question

Информатика

Йов

16 мая, 10:51

Задан массив А (1:20). Найти произведение всех его ненулевых элементов. На паскале через массивы!)

+3

Ответы (1)

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

Ливия · Answer 1

Var

i, p:integer;

a:array[1 ... 20]of integer;

begin

writeln ('Массив: ') ;

p:=1;

for i:=1 to 20 do

begin

a[i]:=random (10) ;

write (a[i],' ') ;

if a[i]0 then p:=p*a[i];

end;

writeln;

writeln ('Произведение ненулевых: ', p) ;

end.