Заполнить массив случайными числами в интервале [-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 313 15 16 35 21 3-25 -7 -22 -5