Заполнить массив случайным образом, состоящий из 12 элементов целого типа (диапазон от -40 до 40). Вывести новый массив, заменив значение пятого элемента среднеарифметическим исходного массива.

                                     PascalABC.NET                                       beginvar a := ArrRandom(12,-40,40); a.Println; Arr(a[:4]+a.Average.Round+a[5:12]).Print;end.

или, можно без округления:

beginvar a := ArrRandom(12,-40,40); a.Println; Print(a[:4].JoinToString,a.Average,a[5:12].JoinToString);end.

и если вдруг выводить нужно именно массив:

begin var a := ArrRandom(12,-40,40); a.Println; Arr(a[:4].Select(x->x/1)+a.Average+a[5:12].Select(x->x/1)).Print; end.

Пример работы: