Вычислить среднее арифметическое отрицательных элементов вектора Q(21)
Вычислить среднее арифметическое отрицательных элементов вектора Q(21)
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var q:=ArrRandom(21,-99,99); q.Println;
Writeln('Ср.арифм. отрицательных элементов равно ',
q.Where(x->x<0).Average:0:5)
end.
Тестовое решение
21 38 24 -55 -60 70 61 55 -17 -23 -28 6 30 -13 9 55 95 -96 91 62 53
Ср.арифм. отрицательных элементов равно -41.71429
Не нашли ответ?
Похожие вопросы