#!/usr/bin/perl
use v5.14;
use warnings;

use List::Util qw/sum/;

my ($n, $m) = split ' ', <>;
my @v = sort { $b <=> $a } map { int } <>;

say sum(map { $m - $_ } @v[$n/2 .. $#v]), ' ', sum(@v[0 .. $#v/2])