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

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

Пример решения:

program AverageArray;
var
arr: array[1..15] of Integer;
sum, average: Real;
i: Integer;
begin
sum := 0;
average := 0;
// Заполнение массива и подсчет суммы всех элементов
for i := 1 to 15 do
begin
arr[i] := Random(100); // Генерируем случайные числа от 0 до 99
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 случайных чисел, найдет их среднее значение, затем преобразует массив, вычитая из каждого элемента это среднее значение.