Найти среднее арифметическое элементов одномерного массива - Turbo Pascal (33843)

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

Найти среднее арифметическое элементов одномерного массива. Разделить на получившееся значение все элементы массива. Массив ввести с клавиатуры. Необходимо выполнить полный контроль входных данных при помощи цикла. Ответ необходимо дать полный по формату 2 знака после запятой. Одномерный массив распечатать в строку.

Решение задачи: «Найти среднее арифметическое элементов одномерного массива»

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

const n=15;
var a:array[1..n] of real;
i:integer;
s:real;
begin
 for i:=1 to n do
begin write('a[',i,']=');
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
for i:=1 to n do
begin
a[i]:=a[i]/s; write(a[i]:5:2);
end;
readln
end;

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

Переменная n инициализируется значением 15.
Создается переменная a, которая является массивом типа real с диапазоном от 1 до n.
Создается переменная i, которая является целочисленной.
Создается переменная s, которая инициализируется значением 0 типа real. Она будет использоваться для хранения суммы всех элементов массива.
Запускается цикл for, который выполняется от 1 до n.
Внутри цикла выводится значение каждого элемента массива a[i] с помощью функции write.
Значение s увеличивается на сумму a[i] с помощью оператора +=.
После завершения цикла for переменная s используется для вычисления среднего арифметического всех элементов массива. Для этого она делится на n с помощью оператора /=.
Запускается еще один цикл for, который выполняется от 1 до n.
Внутри цикла каждый элемент массива a[i] умножается на s и выводится с помощью функции write.
После завершения цикла for все элементы массива a[i] будут равны среднему арифметическому.
Выводится сообщение readln.
Программа завершается.