Составить циклический алгоритм вычисления среднеарифметического значения всех четных чисел от 0 до 20 - Pascal

Формулировка задачи:

1)составить циклический алгоритм вычисления среднеарифметического значения всех четных чисел от 0 до 20

Решение задачи: «Составить циклический алгоритм вычисления среднеарифметического значения всех четных чисел от 0 до 20»

Листинг программы

Const n=20;
Var i,s:integer;
Begin
    i:=0;
    While i<=n do
    Begin
      s:=s+i;
      i:=i+2;
    End;
    writeln('Среднее арифметическое = ',s / ( n div 2 + 1));
End.

Объяснение кода листинга программы

В данном коде используется цикл while, который выполняется от 0 до 20 (n). Внутри цикла переменная i и переменная s инициализируются значением 0 и 0 соответственно. Затем происходит суммирование всех четных чисел от 0 до 20 в переменной s. После этого значение переменной i увеличивается на 2. В конце кода выводится сообщение с результатом, где среднее арифметическое значение вычисляется как (s / (n div 2 + 1)). Таким образом, данный код вычисляет и выводит среднее арифметическое значение всех четных чисел от 0 до 20.