Дан одномерный массив А(10) элементами которого являются
положительные и отрицательные целые числа, вводимые с клавиатуры.
Сформировать новый массив В(10) заменив отрицательные элементы
массива Аi средним арифметическим значением отрицательных элементов, с
подсчётом их количества. На дисплей вывести: исходный массив А(10),
количество отрицательных элементов, их среднее значение.

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrInteger(10);  Write('Массив A: '); a.Println;  var s:=a.Where(t->t<0); // последовательность не хранится  var an:=s.Average;  Writeln('Отрицательных элементов: ',s.Count,', среднее= ', an);  var b:=a.Select(t->t<0?an:t).ToArray;  Write('Массив В: '); b.Printlnend.Пример49 -5 21 10 22 -23 3 35 -26 -43Отрицательных элементов: 4, среднее= -24.25Массив В: 49 -24.25 21 10 22 -24.25 3 35 -24.25 -24.25