Дан массив, состоящий из 8 элементов вещественного типа. Найдите произведение первых 4...

Question

Дан массив, состоящий из 8 элементов вещественного типа. Найдите произведение первых 4 элементов.

Answer 1

// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadArrReal(8);

 a.Take(4).Aggregate(1.0, (p, q)-> p * q).Println

end.

Пример

3.12 -52.52 16 132.52 0 -6 12.707 0.0018

-347440.723968