В одномерном массиве найти произведение ненулевых элементов ( Задать рандомно )
В одномерном массиве найти произведение ненулевых элементов
( Задать рандомно )
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы