Question

Заполните массив D(6) элементами равными 1/5 порядкового номера. Найдите разность между произведением и суммой квадратов его элементов. Паскаль​

Answer 1

===== PascalABC.NET =====

begin

 var D := ArrGen(6, i -> i / 5, 1);

 Print(D.Product - D.Select(p -> p * p).Sum)

end.

Результат: -3.59392