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

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016begin  var a:=ReadArrInteger(ReadInteger('n='));  var d:=ReadInteger('d=');  Writeln('Среднее ',a.Where(x->x>d).Average)end.Тестовое решение:n= 86 3 -1 12 11 9 7 4d= 8Среднее 10.6666666666667