дан одномерный массив, состоящий из N целых чисел. Найти сумму всех положительных элементов, и сумму всех отрицательных элементов. на компьютер нужно написать программку
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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