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

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.Println
end.


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