program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;
var
   Arr: Array of Integer;
   i, Num: Integer;
   SumOfZero: Integer;
   SumOfMinus: Integer;
begin
   SumOfZero := 0;
   SumOfMinus := 0;
   Write('Введите размер массива : ');
   Readln(Num);
   setLength(Arr, Num);
   for i := 0 to High(Arr) do
      Read(Arr[i]);
   for i := 0 to High(Arr) do
   begin
      if Arr[i] < 0  then
         SumOfMinus := SumOfMinus + Arr[i];
      if Arr[i] = 0 then
         Inc(SumOfZero);
   end;
   Writeln('Сумма чисел меньше нуля :', SumOfMinus);
   Write('Сумма нулей : ',SumOfZero);
   Readln;
   Readln;
end.