Question

Составьте программу формирования из одного массива двух: первый массив заполнен отрицательными элементами, а второй — положительными элементами.

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger;

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var b := a.Where(p -> p < 0).ToArray;

 b.Println;

 var c := a.Where(p -> p > 0).ToArray;

 c.Print

end.