Дана последовательность X(15). Подсчитать сумму отрицательных и сумму положительных элементов и найти разницу между этими суммами.
Сделать нужно программу на языке Pascal, через массив (array)
Сделать нужно программу на языке Pascal, через массив (array)
More Questions From This User See All
Answers & Comments
Внимание! Если программа не работает, обновите версию!
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)