var a:array[1..1000000] of longint;
    n,i,max,min,s,s1:longint;
begin
min:=1000000;
read(n);
for i:=1 to n do
begin
read(a[i]);
s:=s+a[i];
end;
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
for i:=1 to n do
if a[i]=min then s1:=s1+a[i];
for i:=1 to n do
if a[i]=max then begin s1:=s1+a[i];break;end;
writeln(s1);
write(s-s1);
end.
/**************************************************************
	Problem: 1584
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/