Question

Дана последовательность X(15). Подсчитать сумму отрицательных и сумму положительных элементов и найти разницу между этими суммами.
Сделать нужно программу на языке Pascal, через массив (array)

Answer 1

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var x:=ArrRandom(15,-50,50); x.Println;
  var (sn,sp):=(0,0);
  foreach var m in x do
    if m>0 then sp+=m else sn+=m;
  Writeln('Разница между суммой положительных и отрицательных ',sp-sn)
end.

Пример
38 -31 -30 50 -12 -27 -2 24 -20 29 46 24 6 32 -2
Разница между суммой положительных и отрицательных 373

Во вложении видно, что х - именно массив (array of integer)