const n=10;
var a:array[1..n] of integer;
      i,summ:integer;
begin
randomize;
for i:=1 to n do begin
  a[i]:=random(55)-5;
  write(a[i],' ');
end;

summ:=0;
for i:=1 to n do begin
  if a[i]<0 then
    summ:=summ+a[i];
end;
writeln;
writeln(summ);
end.