// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var n:=ReadInteger('Количество элементов в массиве: '); var a:=ArrRandom(n,-10,10).Println(','); Write('Неотрицательные элементы: '); a.Where(x->x>=0).PrintLn(','); Write('Отрицательные элементы: '); a.Where(x->x<0).PrintLn(','); end.
<u><em>Тестовое решение:</em></u> Количество элементов в массиве: 15 0,2,-2,-9,6,4,7,2,5,-3,3,-5,0,9,-6 Неотрицательные элементы: 0,2,6,4,7,2,5,3,0,9 Отрицательные элементы: -2,-9,-3,-5,-6