Очень срочно!!!

найти среднее арифметическое значений функции y=2(x+1) на интервале x1<=x<=x2, где x1=-20, x2=10 при шаге x3=5

Const
  x1 = -20;
  x2 = 10;
  x3 = 5;

var
  x, s: real;
  n: integer;

begin
  x := x1;
  n := 0;
  while x <= x2 do
  begin
    s := s + 2 * (x + 1);
    n := n + 1;
    x := x + x3
  end;
  writeln(Среднее арифметическое равно , s / n)
end.

Результат работа программы:

Среднее арифметическое равно -8

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.