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

begin  

var a:=ArrRandom(10,-30,35); 
var b:=a.Where(t->t>0).ToArray;
var c:=a.Where(t->t<0).ToArray;
print('Массив А: ');
a.Println; 
print('Массив B: '); 
b.Println;
print('Массив С: ');
c.Println;
end.