n = read_line.to_i
a = read_line.split.map(&.to_i64)
posi = a.select { |v| v >= 0 }.sort
nega = a.select { |v| v < 0 }.sort
if posi.size == 0
  puts nega.sum.abs * 2 + nega[1] + nega[0]
elsif nega.size == 0
  puts posi[-1] - posi[0]
else
  a0 = nega.sum.abs * 2 + nega[0] + posi[-1]
  a1 = nega.sum.abs * 2 + nega[0] + nega[1] + posi[-1] * 2
  puts [a0, a1].min
end