program zadaha;

var max, min, sum, i : Integer; A : array[1..20] of Integer;

begin
  for i := 1 to 20 do A[i] := random(20);
  for i := 1 to 20 do
  begin
    if A[i] > 0 then
      max := max + 1;
    if A[i] < 0 then
      min := min + 1;
  end;
  sum := max + min;
  write(sum)
end.