Question

дан одномерный массив, состоящий из N целых чисел. Найти сумму всех положительных элементов, и сумму всех отрицательных элементов. на компьютер нужно написать программку​

Answer 1

Ответ:

begin

 var N:Integer;

 read(N);

 var arr := ReadArrInteger(N);

 writeln();

 arr.Where(x -> x > 0).Sum.PrintLn();

 arr.Where(x -> x < 0).Sum.PrintLn();

end.

//PascalABC.NET v3.5.X