Напишите программу на паскале
найти минимальный элемент массива заменить все элементы массива до минимального средним арифметическим элементов массива

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

program replaceElements;
var
arr: array[1..10] of integer;
i, minIndex, sum, avg: integer;
begin
sum := 0;

// Заполнение массива случайными значениями
randomize;
for i := 1 to 10 do
begin
arr[i] := random(50) + 1;
writeln('arr[', i, '] = ', arr[i]);
sum := sum + arr[i];
end;

// Находим среднее арифметическое
avg := sum div 10;

// Находим минимальный элемент и его индекс
minIndex := 1;
for i := 2 to 10 do
begin
if arr[i] < arr[minIndex] then
minIndex := i;
end;

// Заменяем все элементы до минимального
for i := 1 to minIndex - 1 do
arr[i] := avg;

// Выводим измененный массив
writeln('Массив после изменений:');
for i := 1 to 10 do
writeln('arr[', i, '] = ', arr[i]);
end.