program brainly;
var
  i :integer;
  arr :array [1..20] of integer;
  begin
  randomize();
  for i := 1 to 20 do
    arr[i] := random(100) - 50;
  for i := 1 to 20 do
  begin    
    if arr[i] < 0 then
      Write(arr[i], ' ');
  end;
end.