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

По задаче нам нужно определить следующие величины: максимальный элемент, индекс элементов, что является их порядковым номером, а также среднее арифметическое.

Массив одномерный, так что это просто строка чисел. Назовем его буквой А и дадим ему длину, равную десяти:

А : array [1 ... 10] of integer;

Как именно должны быть заполнены его ячейки в задаче не указано, поэтому заполняем его случайными числами:

for i:integer : = 1 to 10 do

A[i] : = random (100);

Проверим все элементы и найдем максимальный элемент, а также среднее арифметическое.

for i:integer : = 1 to 10 do

begin

if (A[i] > max) then

max : = A[i];

max_i : = i;

sum : = sum + A[i];

end;

sr_ar : = sum / 10;

for i:integer : = 1 to 10 do

A[max_i] : = A[max_i] - max_i;