Массив состоит из 20 целых положительных и отрицательных чисел, каждое из которых находится в пределах от 2 до 12. вывести на экран сначала отрицательные, а затем положительные числа. определите, модуль суммы каких чисел больше- положительных или отрицательных.
begin
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
Модуль суммы положительных чисел больше