Задана последовательность из n целых чисел. Определить среднее арифметическое элементов...

Question

Задана последовательность из n целых чисел. Определить среднее арифметическое элементов последовательности , больших заданного значения d .

Answer 1

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var a:=ReadArrInteger(ReadInteger('n='));
  var d:=ReadInteger('d=');
  Writeln('Среднее ',a.Where(x->x>d).Average)
end.

Тестовое решение:
n= 8
6 3 -1 12 11 9 7 4
d= 8
Среднее 10.6666666666667