Y=0,5+x2+1-tg2(x2+1), отыскать среднее арифметическое отрицательных значений функции . Начальные

PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)

1. const
2.  xMin    = 1.5;
3.  xMax    = 2.3;
4.  xDelta  = 0.1;
5. var
6.  x, y, resultSum: real;
7.  valueOfIt: integer;
8. begin
9.  x := xMin;
10.  while x lt;= xMax do
11.    begin
12.      y := 0.5 + Sqrt(Power(x, 2.0) + 1) - Power(Tan(Power(x, 2.0) + 1), 2.0);
13.      if (y lt; 0) then
14.        resultSum := resultSum + y;
15.      x := x + xDelta;
16.      valueOfIt := valueOfIt + 1;
17.    end;
18.  Writeln('Среднее отрицательных значений: ', resultSum / valueOfIt);
19. end.

Ответ

Среднее отрицательных значений: -12.7547010184892