Преобразовать исходный массив, вычитая из каждого элемента найденное среднее значение - QBasic

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

Найти среднее значение элементов массива. Преобразовать исходный массив, вычитая из каждого элемента найденное среднее значение в Basic Z=(163,-169,17,26,306,-163,206,-163,206,173) пожалуйста очень надо

Решение задачи: «Преобразовать исходный массив, вычитая из каждого элемента найденное среднее значение»

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

DATA 163,-169,17,26,306,-163,206,-163,206,173
DIM z(10)
 
CLS
sr = 0
PRINT "tekushiy massiv:"
FOR i = 1 TO 10
  READ z(i)
  PRINT z(i)
  sr = sr + z(i)
NEXT i
sr = sr / 10
PRINT "srednee:"; sr
PRINT "novyi massiv:"
FOR i = 1 TO 10
  z(i) = z(i) - sr
  PRINT z(i)
NEXT i

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

Задаётся исходный массив с 10 элементами, каждый элемент представлен целым числом.
Объявляется переменная sr (сумма) и инициализируется нулём.
Выводится сообщение tekushiy massiv: и в цикле с помощью оператора READ считываются элементы исходного массива, выводится их значение, а также производится суммирование с помощью оператора sr = sr + z(i).
После окончания цикла, с помощью оператора sr = sr / 10 находится среднее значение исходного массива.
Выводится сообщение srednee: и значение переменной sr.
Выводится сообщение novyi massiv: и в цикле с помощью оператора z(i) = z(i) — sr происходит преобразование каждого элемента исходного массива путем вычитания из него найденного среднего значения, после чего выводится значение каждого элемента.
Код завершается.