Заполнить массив случайными числами в интервале [-30,35] и отобрать в массив в все положительные числа, а в массив с – все отрицательные числа. в массиве а – 10 чисел. пример: массив а: -25 13 15 16 35 -7 21 -22 -5 3 массив b: 13 15 16 35 21 3 массив с: -25 -7 -22 -5

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var A:=ReadArrInteger(10);
  var b:=a.Where(t->t>0).ToArray; b.Println;
  var c:=a.Where(t->t<0).ToArray; c.Println;
end.

Пример:
-25 13 15 16 35 -7 21 -22 -5 3
13 15 16 35 21 3
-25 -7 -22 -5