В одномерном массиве случайных чисел в диапазоне от -60 до +60 вычислить Z=S1+S2/2 , где...

Question

В одномерном массиве случайных чисел в диапазоне от -60 до +60 вычислить Z=S1+S2/2 , где S1 – сумма положительных элементов массива, S2 – сумма отрицательных элементов массива.
Помогите плиз решить задачу по Паскалю

Comments

Сколько в массиве элементов?

---

Здесь 5

---

или 10 можно

Answer 1

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-60,60); a.Println;
  var (s1,s2):=(a.Where(x->x>0).Sum,a.Where(x->x<0).Sum);<br>  var z:=s1+s2/2;
  Writeln('z=',z)
end.

Пример
n= 16
-3 -42 48 -6 -27 45 -44 43 -34 53 19 -28 57 12 -19 -1
z=175

Comments

а можно не в Net, а в обычной ABC пожалуйста

---

Не должны, я просто попросил. Хоть на этом спасибо.

---

Да, я понял.