Дана последовательность X(15). Подсчитать сумму отрицательных и сумму положительных...

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)

Answer 2

Var 
a:array[1..15] of real;
i:integer;
s1,s2,r:real;
begin
writeln('Заполните массив');
for i:=1 to 15 do  readln(a[i]);
for i:=1 to 15 do
if a[i]>0 then s1:=s1+a[i];
for i:=1 to 15 do
if a[i]<0 then s1:=s1+a[i];<br>r:=s1-s2;
writeln('Сумма положительных>> ', s1);
writeln('Сумма отрицательных>> ', s2);
writeln('разница сумм>> ', r);
end.

Comments

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

---

аааа

---

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

---

ну шо

---

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