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

Question

Информатика

Арсеныч

23 июля, 01:02

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

+5

Ответы (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.