Пусть а[1], ..., a[n] - целые числа. Требуется найти сумму отрицательных и сумму...

Question

Пусть а[1], ..., a[n] - целые числа. Требуется найти сумму отрицательных и сумму неотрицательных элементов массива.
pascal

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var sn:=a.Where(t->t<0).Count;<br>  Writeln($'Отрицательных чисел {sn}, неотрицательных {a.Length-sn}')
end.

Пример
n= 15
-37 38 41 25 -22 13 17 -29 20 -12 -19 -48 10 29 -49
Отрицательных чисел 7, неотрицательных 8

Answer 2

Отрицательные:
for i:=1 to n do
if a[i]<0 then s:=s+a[i];<br>
Неотрицательные:
for i:=1 to n do
if a[i]>0 then s:=s+a[i];