var i,j,t1,t2,n,tam:integer;
    a:array[1..100] of integer;
    f:text;
begin
assign(f,'CHIAKEO.inp');
reset(f);
readln(f,n);
for i:=1 to n do
read(f,a[i]);
close(f);
assign(f,'CHIAKEO.out');
rewrite(f);
for i:=1 to n-1 do
  for j:=i+1 to n do
    if a[i]<a[j] then
      begin
        tam:=a[i];
        a[i]:=a[j];
        a[j]:=tam;
      end;
t1:=a[1];
t2:=a[2];
for i:=3 to n do
  if t1>t2 then t2:=t2+a[i] else t1:=t1+a[i];
write(f,abs(t1-t2));
close(f);
end.

#include <bits/stdc++.h>

using namespace std;

int a[1000005], n, s = 0, s1 = 0;
int main() {
    cin >> n;
    for (int i = 1; i <= n; ++i)
    {
        cin >> a[i];
    }
    sort (a + 1, a + 1 + n, greater<int>());
    s = a[1], s1 = a[2];
    for (int i = 3; i <= n; ++i)
    {
        if (s > s1) s1 += a[i];
        else s += a[i];
    }
    cout << abs(s - s1);
    return 0;
}