Предмет: Информатика,
автор: кэти343
Задана последовательность из n целых чисел. Определить среднее арифметическое элементов последовательности , больших заданного значения d .
Ответы
Автор ответа:
0
// 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
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
Похожие вопросы
Предмет: Литература,
автор: karl1256
Предмет: Математика,
автор: tatyana6115
Предмет: Русский язык,
автор: berezovskaalilia776
Предмет: Физика,
автор: 89940043712
Предмет: Математика,
автор: leshpens