Question

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

Answer 1

// 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.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