Question

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

Answer 1

PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(12,-50,50); a.Println;
  var b:=a.Select(t->real(t)).ToArray;
  b[4]:=a.Average; b.Println;
end.

Пример
3 -37 -3 13 33 27 -31 42 -34 16 -34 44
3 -37 -3 13 3.25 27 -31 42 -34 16 -34 44