Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
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    else Writeln(Модули сумм положительных и отрицательных чисел равны)
end.

Тестовое решение:
-12 -10 -7 -7 -4 3 4 5 5 5 6 6 6 8 9 9 10 10 11 11
Модуль суммы положительных чисел больше