Массив состоит из 20 целых положительных и отрицательных чисел, каждое из которых находится в пределах от 2 до 12. Вывести на экран сначала отрицательные, а затем положительные числа. Определите, модуль суммы каких чисел больше- положительных или отрицательных.

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016begin  var a:=ArrRandom(40,-12,12).Where(x->abs(x)>=2).Take(20).ToArray;  a.Sorted.Println;  var sn:=abs(a.Where(x->x<0).Sum);  var sp:=abs(a.Where(x->x>0).Sum);  if sn>sp then Writeln('Модуль суммы отрицательных чисел больше')  else    if sn<sp then Writeln('Модуль суммы положительных чисел больше')    else Writeln('Модули сумм положительных и отрицательных чисел равны')end.Тестовое решение:-12 -10 -7 -7 -4 3 4 5 5 5 6 6 6 8 9 9 10 10 11 11Модуль суммы положительных чисел больше