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

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

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

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