Одномерный массив состоит из 15 элементов. Массив заполняется случайными числами из диапазона от 7 до 62. Выведите массив на экран в строчку и найдите произведение элементов массива.

Одномерный массив состоит из 15 элементов. Массив заполняется случайными числами из диапазона от 7 до 62. Выведите массив на экран в строчку и найдите произведение элементов массива.
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.2, сборка 1383 от 09.02.2017 // Внимание! Если программа не работает, обновите версию! begin   var a:=ArrRandom(15,7,62); a.Println;   Writeln('Произведение элементов ',       a.Aggregate(BigInteger(1),(x,y)->x*y)) end. Пример 24 43 36 54 9 37 42 9 34 14 24 42 21 44 16 Произведение элементов 1791312802990350925824
Гость
Вот тривиальное решение. var   a:array [1..15] of integer;   i:integer;   p:BigInteger; begin p:=1; for i:=1 to 15 do   begin   a[i]:=random(7,62);   p:=p*a[i];   write(a[i],'; ');   end; writeln; writeln('Произведение=',p) end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы