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

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

program IncreaseArrayElements;

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

begin
sum := 0;

// Заполнение массива
for i := 1 to 11 do
begin
write('Введите элемент массива ', i, ': ');
readln(arr[i]);
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;

// Вывод всех элементов массива
writeln('Измененный массив:');
for i := 1 to 11 do
writeln(arr[i]);

end.