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

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);<br>end.

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

Comments

"Сумма сумма" )))

---

©Глеб Косырев. Я отвлёкся на что-то в процессе.