Составить программу которая создаёт массив случайных чисел в диапазоне (-10,10) . Найти сумму положительных и сумму отрицательных элементов массива

begin
var a:=ArrRandom(10,-10,10);a.Println;
var (sum1,sum2):= (a.Where(t -> t > 0).Sum,a.Where(t -> t < 0).Sum);
Writeln(sum1, ' ', sum2);
end.


5 -2 -3 6 -7 -8 -7 7 -1 4
22 -28