Дан массив из 50 элементов. Найти произведение всех элементов.

Question

Информатика

Илюша

5 октября, 11:49

Дан массив из 50 элементов. Найти произведение всех элементов.

+2

Ответы (1)

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

Егорич · Answer 1

Var

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

l: longint;

begin

for l : = 1 to 50 do

begin

a[l] : = random (-5, 5) ;

write (a[l], ' ') ;

end;

l : = 1;

writeln () ;

foreach k: integer in a do

l * = k;

writeln (l) ;

end.