Создать массив вещественных чисел. Вычислить произведение элементов массива с нечетными...

Question

Создать массив вещественных чисел. Вычислить произведение элементов массива с нечетными номерами. Упорядочить элементы массива по возрастанию.

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

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

begin

 var a := SeqRandomReal(ReadInteger('n='), -99, 99)

     .Select(t -> Round(t, 2)).ToArray;

 a.Println;

 a.Where((v, i)-> i.IsEven).Aggregate(1.0, (p, q)-> p * q).Println;

 a.Sort;

 a.Println

end.

---