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

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

program IncreaseArrayElements;

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

begi
sum := 0;

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

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

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

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