Question

Pascal.дана последовательность чисел .вывести на экран суммы положительных и отрицательных чисел данной последовательности.

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

Const
 n=10;

Begin
 var ar:=ReadArrInteger(n);
 writeln('Сумма положительных=',ar.Where(x -> x>0).sum);
 writeln('Сумма сумма отрицательных=',ar.Where(x -> x<0).sum);
end.

Пример ввода:
1
-2
3
4
-5
-6
7
8
9
10
Пример вывода:
Сумма положительных=42
Сумма сумма отрицательных=-13