Question

В среде программирования ABCPascal наберите текст программы для решения задачи: Составить программу, подсчитывающую произведение 12 элементов целочисленного массива. Массив заполнить случайными числами в диапазоне 50-100, вывести на экран с комментариями.

Answer 1

Ответ:

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

Объяснение: