Заполнить массив случайными числами в интервале [-30,35] и отобрать в массив В все...

Question

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

Answer 1

//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;<br>end.

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