Question

Вычислить среднее арифметическое отрицательных элементов вектора Q(21)

Answer 1

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