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