Question

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

Answer 1

                                     PascalABC.NET                                      

Ответ:

• begin
• var a := ArrRandom(12,-40,40);
• a.Println;
• Arr(a[:4]+a.Average.Round+a[5:12]).Print;
• end.

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

• begin
• var 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.

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