Заполнить массив из 10 элементов случайными числами в интервале [0,100] и подсчитать...

Question

Заполнить массив из 10 элементов случайными числами в интервале [0,100] и подсчитать среднее значение всех элементов, которые <50<br> Пожалуйста, без randomize и прочих "изысков".

Answer 1

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,0,100); a.Println;
  Writeln(a.Where(x->x<50).Average)<br>end.

Пример
59 31 97 34 33 2 64 84 79 37
27.4