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

Question

Информатика

Микита

13 февраля, 14:21

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

+3

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