program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,System.Math;
  var
  arr: array of Integer;
  i,a,b,c: Integer;
begin
  SetLength(arr, 15);
  a:=0;
  b:=0;
  c:=0;
  for i:= 1 to 15 do
  begin
    arr[i]:= RandomRange(-10, 10);
    Writeln('Элемент - ', arr[i]);
    if(arr[i] < 0) then Inc(a);
    if(arr[i] < 0) then b:= b + arr[i];
    if(arr[i] > 0) then c:= c + arr[i];
  end;
  Writeln('Сумма отр. - ', b);
  Writeln('Кл-во отр. - ', a);
  Writeln('Сумма полож. - ', c);
  Readln;
end.