func main()
	var N: int :: cui@input().toInt(&)
	var a: []int :: #[N]int
	var ss: [][]char :: cui@input().split(" ")
	for i(0, N - 1)
		do a[i] :: ss[i].toInt(&)
	end for
	if(a.min() = a.max())
		do cui@print(a[0] = (N - 1) * 2 ?("\{N} 0\n", "0 \{N}\n"))
	else
		var k: int :: (a.max() + 2 - 2 * N) / 2
		do cui@print("\{N - k} \{k}\n")
	end if
end func