Задан числовой массив, состоящий из 11 элементов. Увеличьте все элементы данного массив, значения которых больше среднего арифметической всех элементов массива на 40 и выведите все элементы на экран. Паскаль

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

program IncreaseArrayElements;

var
arr: array[1..11] of Integer;
i: Integer;
sum, average: Double;

begin
sum := 0;

// Заполнение массива и подсчет суммы элементов
for i := 1 to 11 do
begin
arr[i] := Random(100);
sum := sum + arr[i];
end;

// Вычисление среднего
average := sum / 11;

// Увеличение элементов массива, которые больше среднего на 40
for i := 1 to 11 do
begin
if arr[i] > average then
arr[i] := arr[i] + 40;
end;

// Вывод всех элементов массива
for i := 1 to 11 do
begin
WriteLn(arr[i]);
end;
end.