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

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

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

//Pascal ABC.NET 3.1 сборка 1219Const n=10;Begin var ar:=ReadArrInteger(n); writeln('Сумма положительных=',ar.Where(x -> x>0).sum); writeln('Сумма сумма отрицательных=',ar.Where(x -> x<0).sum);end.Пример ввода:1-234-5-678910Пример вывода:Сумма положительных=42Сумма сумма отрицательных=-13