Написать программу по блок-схеме - Pascal (80903)

Решение задачи: «Написать программу по блок-схеме»

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

var a,k,s:integer;
     sr:real;
begin
k:=0;
s:=0;
a:=120;
while a>10 do
 begin
  s:=s+a;
  k:=k+1;
  a:=a-10;
 end;
sr:=s/k;
write('Среднее=',sr:0:2);
end.

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

Объявление переменных:
- a, k, s - целочисленные переменные
- sr - вещественная переменная
Присвоение начальных значений переменным:
- k = 0
- s = 0
- a = 120
Выполнение цикла while с условием a>10:
- Пока значение a больше 10, выполняются следующие действия:
  1. Увеличение значения переменной s добавлением значения a
  2. Увеличение значения переменной k на 1
  3. Уменьшение значения a на 10
Расчет среднего значения:
- Вычисление среднего значения, разделив сумму s на количество k и присвоение полученного результата переменной sr
Вывод результата:
- Вывод текста Среднее= и значения переменной sr с точностью до двух знаков после запятой. Таким образом, данный код вычисляет среднее значение последовательности чисел, начиная с 120 и уменьшая на 10 на каждом этапе, и выводит полученный результат.