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

NoMatterWho2001 NoMatterWho2001    2   02.10.2019 18:01    0

Ответы
Искорка123456 Искорка123456  09.10.2020 12:13
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.


Создать массив вещественных чисел. вычислить произведение элементов массива с нечетными номерами. уп
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика