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

сумму отрицательных не считает, а так норм.

аааа

там где a[i]<0 надо s1 заменить на s2

ну шо

спасибо, все гуд.

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)