#[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 ans = (|| {
        let mean = (y.iter().sum::<i64>() as f64) / (n as f64);

        let floor = mean.floor() as i64;
        let ceil = mean.ceil() as i64;

        let mut min = i64::MAX;
        for line in floor..=ceil {
            let sum = y.iter().fold(0, |acc, y_i| acc + (y_i - line).abs());
            min = sum.min(min);
        }
        min
    })();

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