Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// 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