Question

Сформировать ряд из 89 вещественных элементов заданных случайным образом из диапазона 0 40 с точностью до тысячных
Вывести на экран элементы ряда найти среднее арифмитическое чисел ряда меньших значений меридианы диапазона

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=89;
  var a:=SeqRandom(n,0,40000).Select(t->t/1000).ToArray;
  a.Println.Sorted.Take(n div 2).Average.Println
end.