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

По задаче нам нужно определить следующие величины: максимальный элемент, индекс элементов, что является их порядковым номером, а также среднее арифметическое.Массив одномерный, так что это просто строка чисел. Назовем его буквой А и дадим ему длину, равную десяти:А : array [1..10] of integer;Как именно должны быть заполнены его ячейки в задаче не указано, поэтому заполняем его случайными числами:for i:integer := 1 to 10 doA[i] := random(100);Проверим все элементы и найдем максимальный элемент, а также среднее арифметическое.for i:integer := 1 to 10 dobeginif (A[i] > max) thenmax := A[i];max_i := i;sum := sum + A[i];end;sr_ar := sum / 10;for i:integer := 1 to 10 doA[max_i] := A[max_i] - max_i;