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