В среде программирования ABCPascal наберите текст программы для решения задачи: Составить программу, подсчитывающую произведение 12 элементов целочисленного массива. Массив заполнить случайными числами в диапазоне 50-100, вывести на экран с комментариями.
More Questions From This User See All
Answers & Comments
Ответ:
PascalABC.NET
function Multiple(Arr:List<integer>):integer;
begin
var res := 1;
foreach var item in Arr do
res *= item;
Multiple:=res;
end;
begin
var Arr := ArrRandom(12, 50, 100).ToList;
Print(Multiple(Arr));
end.
!!!В компиляторах Free Pascal, Turbo Pascal и им подобным работать не будет. Только для среды PascalABC.NET
Объяснение: