Дан массив вывести ** экран сначала неотрицательные элементы массива потом отрицательные....

Question

Дан массив вывести на экран сначала неотрицательные элементы массива потом отрицательные.
решить в PascalABC

Answer 1

// 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(',');<br>end.

Тестовое решение:
Количество элементов в массиве:  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