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
Поделитесь своими знаниями, ответьте на вопрос:
дан одномерный массив, состоящий из N целых чисел. Найти сумму всех положительных элементов, и сумму всех отрицательных элементов. на компьютер нужно написать программку
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