#[macro_export]
macro_rules! setup {
    { mut $input:ident: SplitWhitespace $(,)? } => {
        use std::io::Read;
        let mut buf = String::new();
        std::io::stdin().read_to_string(&mut buf).ok();
        let mut $input = buf.split_whitespace();
    };
}

#[macro_export]
macro_rules! parse_next {
    ($str_iter:expr) => {
        $str_iter.next().unwrap().parse().ok().unwrap()
    };
}

#[allow(unused_imports)]
use std::collections::{HashMap, HashSet, VecDeque};

fn main() {
    setup! { mut input: SplitWhitespace };

    let n: usize = parse_next!(input);
    let y: Vec<i64> = (0..n).map(|_| parse_next!(input)).collect();

    let mean = (y.iter().sum::<i64>() as f64) / (n as f64);
    let floor = mean.floor() as i64;
    let ceil = mean.ceil() as i64;

    macro_rules! sum {
        ($criterion:expr) => {
            y.iter().fold(0, |acc, y_i| acc + (y_i - $criterion).abs())
        };
    }

    let ans = (|| {
        let mut down_min = sum!(floor);
        for d in 1..i64::MAX {
            let sum = sum!(floor - d);
            if sum >= down_min {
                break;
            }
            down_min = sum;
        }

        let mut up_min = sum!(ceil);
        for d in 1..i64::MAX {
            let sum = sum!(ceil + d);
            if sum >= up_min {
                break;
            }
            up_min = sum;
        }

        std::cmp::min(down_min, up_min)
    })();

    println!("{}", ans);
}