Задан одномерный массив R(N) (N<=60). Получить новый массив Q
путём умножения элементов исходного массива R на его минимальный
элемент. Вычислить среднее арифметическое полученного массива Q и
записать его на место минимального элемента исходного массива R.
Результат вывести на экран.
Программу в паскале записать

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

program MultiplyArray;

const
N = 5;

var
R, Q: array[1..N] of Integer;
i, minIndex, minElement, sum: Integer;
average: Real;

begin
// Ввод элементов исходного массива R
writeln('Enter elements of array R:');
for i := 1 to N do
readln(R[i]);

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

// Умножаем элементы исходного массива R на минимальный элемент
// и записываем их в новый массив Q
for i := 1 to N do
Q[i] := R[i] * minElement;

// Вычисляем среднее арифметическое нового массива Q
sum := 0;
for i := 1 to N do
sum := sum + Q[i];
average := sum / N;

// Записываем среднее арифметическое на место минимального элемента исходного массива R
R[minIndex] := round(average);

// Выводим результат на экран
writeln('Result:');
for i := 1 to N do
write(Q[i], ' ');
writeln;
end.