Найти среднее арифметическое значение элементов заданного массива размером 15. Преобразовать исходный массив, вычитая из каждого элемента найденное среднее значение Turbo pascal

Предыдущий
вопрос Следующий
вопрос

Пример кода на Turbo Pascal:

program AverageArray;
var
arr: array[1..15] of integer;
sum, average: real;
i: integer;
begin
sum := 0;
// Заполняем массив значениями
for i := 1 to 15 do
begin
arr[i] := random(100); // Генерируем случайные числа от 0 до 100
sum := sum + arr[i];
end;
average := sum / 15;
writeln('Среднее значение элементов массива: ', average:0:2);
// Преобразуем исходный массив
for i := 1 to 15 do
begin
arr[i] := arr[i] - round(average);
end;
// Выводим преобразованный массив
writeln('Преобразованный массив:');
for i := 1 to 15 do
begin
write(arr[i], ' ');
end;
end.

Этот код создает массив из 15 случайных чисел, находит среднее значение элементов массива, вычитает это среднее значение из каждого элемента и выводит преобразованный массив.