#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int /*<<< orphan*/ printf(char *, int);
int /*<<< orphan*/ puts(char *);
int /*<<< orphan*/ scanf(char *, short *);
int main() {
  short i, N, A[10000];
  int sum, total;
  while (1) {
    scanf("%hd", &N);
    if (N == -1) {
      break;
    }
    for (i = sum = 0; i < N; ++i) {
      scanf("%hd", &A[i]);
      sum += A[i];
    }
    if (sum % N) {
      puts("-1");
    } else {
      for (i = total = 0; i < N; ++i) {
        if (A[i] > sum / N) {
          total += A[i] - sum / N;
        }
      }
      printf("%d\n", total);
    }
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x4e40,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xeb7(%rip),%rdi
lea    -0x8(%rbp),%rsi
call   1050 <scanf@plt>
movswl -0x8(%rbp),%eax
cmp    $0xffffffff,%eax
jne    1164 <main+0x34>
jmp    12a7 <main+0x177>
movl   $0x0,-0x4e34(%rbp)
movw   $0x0,-0x6(%rbp)
movswl -0x6(%rbp),%eax
movswl -0x8(%rbp),%ecx
cmp    %ecx,%eax
jge    11cd <main+0x9d>
movswq -0x6(%rbp),%rax
lea    -0x4e30(%rbp),%rsi
shl    $0x1,%rax
add    %rax,%rsi
lea    0xe62(%rip),%rdi
call   1050 <scanf@plt>
movswq -0x6(%rbp),%rax
movswl -0x4e30(%rbp,%rax,2),%eax
ff
add    -0x4e34(%rbp),%eax
mov    %eax,-0x4e34(%rbp)
mov    -0x6(%rbp),%ax
add    $0x1,%ax
mov    %ax,-0x6(%rbp)
jmp    1174 <main+0x44>
mov    -0x4e34(%rbp),%eax
movswl -0x8(%rbp),%ecx
cltd
idiv   %ecx
cmp    $0x0,%edx
je     11f4 <main+0xc4>
lea    0xe1a(%rip),%rdi
call   1030 <puts@plt>
jmp    12a2 <main+0x172>
movl   $0x0,-0x4e38(%rbp)
movw   $0x0,-0x6(%rbp)
movswl -0x6(%rbp),%eax
movswl -0x8(%rbp),%ecx
cmp    %ecx,%eax
jge    1290 <main+0x160>
movswq -0x6(%rbp),%rax
movswl -0x4e30(%rbp,%rax,2),%eax
ff
mov    %eax,-0x4e3c(%rbp)
mov    -0x4e34(%rbp),%eax
movswl -0x8(%rbp),%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x4e3c(%rbp),%eax
cmp    %ecx,%eax
jle    127a <main+0x14a>
movswq -0x6(%rbp),%rax
movswl -0x4e30(%rbp,%rax,2),%eax
ff
mov    %eax,-0x4e40(%rbp)
mov    -0x4e34(%rbp),%eax
movswl -0x8(%rbp),%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x4e40(%rbp),%eax
sub    %ecx,%eax
add    -0x4e38(%rbp),%eax
mov    %eax,-0x4e38(%rbp)
jmp    127f <main+0x14f>
mov    -0x6(%rbp),%ax
add    $0x1,%ax
mov    %ax,-0x6(%rbp)
jmp    1204 <main+0xd4>
mov    -0x4e38(%rbp),%esi
lea    0xd6a(%rip),%rdi
call   1040 <printf@plt>
jmp    1142 <main+0x12>
xor    %eax,%eax
add    $0x4e40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x4e38,%rsp
lea    0xeb8(%rip),%rdi
lea    0xe(%rsp),%rsi
call   1050 <scanf@plt>
movzwl 0xe(%rsp),%esi
cmp    $0xffff,%si
je     139d <main+0x26d>
lea    0xe98(%rip),%r13
xor    %r14d,%r14d
lea    0xe(%rsp),%r15
jmp    11a6 <main+0x76>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
lea    0xe7d(%rip),%rdi
call   1030 <puts@plt>
mov    %r13,%rdi
mov    %r15,%rsi
call   1050 <scanf@plt>
movzwl 0xe(%rsp),%esi
cmp    $0xffff,%si
je     139d <main+0x26d>
mov    $0x0,%ebp
test   %si,%si
jle    11e3 <main+0xb3>
xor    %r12d,%r12d
lea    0x10(%rsp),%rbx
xor    %ebp,%ebp
nopw   0x0(%rax,%rax,1)
mov    %r13,%rdi
mov    %rbx,%rsi
call   1050 <scanf@plt>
movswl (%rbx),%eax
add    %eax,%ebp
add    $0x1,%r12
movswq 0xe(%rsp),%rsi
add    $0x2,%rbx
cmp    %rsi,%r12
jl     11c0 <main+0x90>
movswl %si,%ecx
mov    %ebp,%eax
cltd
idiv   %ecx
test   %edx,%edx
jne    1180 <main+0x50>
test   %si,%si
jle    1206 <main+0xd6>
movzwl %si,%ecx
cmp    $0x8,%si
jae    120d <main+0xdd>
xor    %edx,%edx
xor    %esi,%esi
jmp    1360 <main+0x230>
xor    %esi,%esi
jmp    1376 <main+0x246>
mov    %ecx,%edx
and    $0xfffffff8,%edx
movd   %eax,%xmm0
pshufd $0x0,%xmm0,%xmm0
lea    -0x8(%rdx),%rsi
mov    %rsi,%rbp
shr    $0x3,%rbp
add    $0x1,%rbp
test   %rsi,%rsi
je     1387 <main+0x257>
mov    %rbp,%rsi
and    $0xfffffffffffffffe,%rsi
pxor   %xmm1,%xmm1
xor    %edi,%edi
pxor   %xmm2,%xmm2
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movq   0x10(%rsp,%rdi,2),%xmm3
punpcklwd %xmm3,%xmm4
movq   0x18(%rsp,%rdi,2),%xmm3
punpcklwd %xmm3,%xmm3
psrad  $0x10,%xmm4
psrad  $0x10,%xmm3
movdqa %xmm4,%xmm5
pcmpgtd %xmm0,%xmm5
movdqa %xmm3,%xmm6
pcmpgtd %xmm0,%xmm6
psubd  %xmm0,%xmm4
pand   %xmm5,%xmm4
paddd  %xmm1,%xmm4
psubd  %xmm0,%xmm3
pand   %xmm6,%xmm3
paddd  %xmm2,%xmm3
movq   0x20(%rsp,%rdi,2),%xmm1
punpcklwd %xmm1,%xmm1
movq   0x28(%rsp,%rdi,2),%xmm2
punpcklwd %xmm2,%xmm2
psrad  $0x10,%xmm1
psrad  $0x10,%xmm2
movdqa %xmm1,%xmm5
pcmpgtd %xmm0,%xmm5
movdqa %xmm2,%xmm6
pcmpgtd %xmm0,%xmm6
psubd  %xmm0,%xmm1
pand   %xmm5,%xmm1
paddd  %xmm4,%xmm1
psubd  %xmm0,%xmm2
pand   %xmm6,%xmm2
paddd  %xmm3,%xmm2
add    $0x10,%rdi
add    $0xfffffffffffffffe,%rsi
jne    1250 <main+0x120>
test   $0x1,%bpl
je     1336 <main+0x206>
movq   0x10(%rsp,%rdi,2),%xmm3
punpcklwd %xmm3,%xmm3
movq   0x18(%rsp,%rdi,2),%xmm4
punpcklwd %xmm4,%xmm4
psrad  $0x10,%xmm3
psrad  $0x10,%xmm4
movdqa %xmm3,%xmm5
pcmpgtd %xmm0,%xmm5
movdqa %xmm4,%xmm6
pcmpgtd %xmm0,%xmm6
psubd  %xmm0,%xmm3
pand   %xmm5,%xmm3
paddd  %xmm3,%xmm1
psubd  %xmm0,%xmm4
pand   %xmm6,%xmm4
paddd  %xmm4,%xmm2
paddd  %xmm2,%xmm1
pshufd $0xee,%xmm1,%xmm0
paddd  %xmm1,%xmm0
pshufd $0x55,%xmm0,%xmm1
paddd  %xmm0,%xmm1
movd   %xmm1,%esi
cmp    %rcx,%rdx
je     1376 <main+0x246>
cs nopw 0x0(%rax,%rax,1)
nop
movswl 0x10(%rsp,%rdx,2),%edi
sub    %eax,%edi
cmovle %r14d,%edi
add    %edi,%esi
add    $0x1,%rdx
cmp    %rdx,%rcx
jne    1360 <main+0x230>
lea    0xc8a(%rip),%rdi
call   1040 <printf@plt>
jmp    118c <main+0x5c>
pxor   %xmm1,%xmm1
xor    %edi,%edi
pxor   %xmm2,%xmm2
test   $0x1,%bpl
jne    12f0 <main+0x1c0>
jmp    1336 <main+0x206>
xor    %eax,%eax
add    $0x4e38,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [4 x i8] c"%hd\00"
@.str.1 = [3 x i8] c"-1\00"
@.str.2 = [4 x i8] c"%d\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i16
%3 = alloca i16
%4 = alloca [10000 x i16]
%5 = alloca i32
%6 = alloca i32
store i32 0, i32* %1
br label %7
7: ; preds = %0, %81
%8 = call i32 @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i16* %3)
%9 = load i16, i16* %3
%10 = sext i16 %9 to i32
%11 = icmp eq i32 %10, -1
br i1 %11, label %12, label %13
12: ; preds = %7
br label %82
13: ; preds = %7
store i32 0, i32* %5
store i16 0, i16* %2
br label %14
14: ; preds = %32, %13
%15 = load i16, i16* %2
%16 = sext i16 %15 to i32
%17 = load i16, i16* %3
%18 = sext i16 %17 to i32
%19 = icmp slt i32 %16, %18
br i1 %19, label %20, label %35
20: ; preds = %14
%21 = load i16, i16* %2
%22 = sext i16 %21 to i64
%23 = getelementptr inbounds [10000 x i16], [10000 x i16]* %4, i64 0, i64 %22
%24 = call i32 @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i16* %23)
%25 = load i16, i16* %2
%26 = sext i16 %25 to i64
%27 = getelementptr inbounds [10000 x i16], [10000 x i16]* %4, i64 0, i64 %26
%28 = load i16, i16* %27
%29 = sext i16 %28 to i32
%30 = load i32, i32* %5
%31 = add nsw i32 %30, %29
store i32 %31, i32* %5
br label %32
32: ; preds = %20
%33 = load i16, i16* %2
%34 = add i16 %33, 1
store i16 %34, i16* %2
br label %14
35: ; preds = %14
%36 = load i32, i32* %5
%37 = load i16, i16* %3
%38 = sext i16 %37 to i32
%39 = srem i32 %36, %38
%40 = icmp ne i32 %39, 0
br i1 %40, label %41, label %43
41: ; preds = %35
%42 = call i32 @puts(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0))
br label %81
43: ; preds = %35
store i32 0, i32* %6
store i16 0, i16* %2
br label %44
44: ; preds = %75, %43
%45 = load i16, i16* %2
%46 = sext i16 %45 to i32
%47 = load i16, i16* %3
%48 = sext i16 %47 to i32
%49 = icmp slt i32 %46, %48
br i1 %49, label %50, label %78
50: ; preds = %44
%51 = load i16, i16* %2
%52 = sext i16 %51 to i64
%53 = getelementptr inbounds [10000 x i16], [10000 x i16]* %4, i64 0, i64 %52
%54 = load i16, i16* %53
%55 = sext i16 %54 to i32
%56 = load i32, i32* %5
%57 = load i16, i16* %3
%58 = sext i16 %57 to i32
%59 = sdiv i32 %56, %58
%60 = icmp sgt i32 %55, %59
br i1 %60, label %61, label %74
61: ; preds = %50
%62 = load i16, i16* %2
%63 = sext i16 %62 to i64
%64 = getelementptr inbounds [10000 x i16], [10000 x i16]* %4, i64 0, i64 %63
%65 = load i16, i16* %64
%66 = sext i16 %65 to i32
%67 = load i32, i32* %5
%68 = load i16, i16* %3
%69 = sext i16 %68 to i32
%70 = sdiv i32 %67, %69
%71 = sub nsw i32 %66, %70
%72 = load i32, i32* %6
%73 = add nsw i32 %72, %71
store i32 %73, i32* %6
br label %74
74: ; preds = %61, %50
br label %75
75: ; preds = %74
%76 = load i16, i16* %2
%77 = add i16 %76, 1
store i16 %77, i16* %2
br label %44
78: ; preds = %44
%79 = load i32, i32* %6
%80 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.2, i64 0, i64 0), i32 %79)
br label %81
81: ; preds = %78, %41
br label %7
82: ; preds = %12
ret i32 0
}

LLVM IR (-O2):
@.str = [4 x i8] c"%hd\00"
@.str.1 = [3 x i8] c"-1\00"
@.str.2 = [4 x i8] c"%d\0A\00"
define i32 @main() {
%1 = alloca i16
%2 = alloca [10000 x i16]
%3 = bitcast i16* %1 to i8*
%4 = bitcast [10000 x i16]* %2 to i8*
%5 = call i32 @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i16* %1)
%6 = load i16, i16* %1
%7 = icmp eq i16 %6, -1
br i1 %7, label %143, label %8
8: ; preds = %0, %139
%9 = phi i16 [ %141, %139 ], [ %6, %0 ]
%10 = icmp sgt i16 %9, 0
br i1 %10, label %11, label %23
11: ; preds = %8, %11
%12 = phi i64 [ %19, %11 ], [ 0, %8 ]
%13 = phi i32 [ %18, %11 ], [ 0, %8 ]
%14 = getelementptr inbounds [10000 x i16], [10000 x i16]* %2, i64 0, i64 %12
%15 = call i32 @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i16* %14)
%16 = load i16, i16* %14
%17 = sext i16 %16 to i32
%18 = add nsw i32 %13, %17
%19 = add nuw nsw i64 %12, 1
%20 = load i16, i16* %1
%21 = sext i16 %20 to i64
%22 = icmp slt i64 %19, %21
br i1 %22, label %11, label %23
23: ; preds = %11, %8
%24 = phi i32 [ 0, %8 ], [ %18, %11 ]
%25 = phi i16 [ %9, %8 ], [ %20, %11 ]
%26 = sext i16 %25 to i32
%27 = srem i32 %24, %26
%28 = sdiv i32 %24, %26
%29 = icmp eq i32 %27, 0
br i1 %29, label %30, label %122
30: ; preds = %23
%31 = icmp sgt i16 %25, 0
br i1 %31, label %32, label %136
32: ; preds = %30
%33 = zext i16 %25 to i64
%34 = icmp ult i16 %25, 8
br i1 %34, label %119, label %35
35: ; preds = %32
%36 = and i64 %33, 65528
%37 = insertelement <4 x i32> poison, i32 %28, i64 0
%38 = shufflevector <4 x i32> %37, <4 x i32> poison, <4 x i32> zeroinitializer
%39 = insertelement <4 x i32> poison, i32 %28, i64 0
%40 = shufflevector <4 x i32> %39, <4 x i32> poison, <4 x i32> zeroinitializer
%41 = add nsw i64 %36, -8
%42 = lshr exact i64 %41, 3
%43 = add nuw nsw i64 %42, 1
%44 = and i64 %43, 1
%45 = icmp eq i64 %41, 0
br i1 %45, label %89, label %46
46: ; preds = %35
%47 = and i64 %43, 4611686018427387902
br label %48
48: ; preds = %48, %46
%49 = phi i64 [ 0, %46 ], [ %86, %48 ]
%50 = phi <4 x i32> [ zeroinitializer, %46 ], [ %84, %48 ]
%51 = phi <4 x i32> [ zeroinitializer, %46 ], [ %85, %48 ]
%52 = phi i64 [ 0, %46 ], [ %87, %48 ]
%53 = getelementptr inbounds [10000 x i16], [10000 x i16]* %2, i64 0, i64 %49
%54 = bitcast i16* %53 to <4 x i16>*
%55 = load <4 x i16>, <4 x i16>* %54
%56 = getelementptr inbounds i16, i16* %53, i64 4
%57 = bitcast i16* %56 to <4 x i16>*
%58 = load <4 x i16>, <4 x i16>* %57
%59 = sext <4 x i16> %55 to <4 x i32>
%60 = sext <4 x i16> %58 to <4 x i32>
%61 = icmp slt <4 x i32> %38, %59
%62 = icmp slt <4 x i32> %40, %60
%63 = sub nsw <4 x i32> %59, %38
%64 = sub nsw <4 x i32> %60, %40
%65 = select <4 x i1> %61, <4 x i32> %63, <4 x i32> zeroinitializer
%66 = select <4 x i1> %62, <4 x i32> %64, <4 x i32> zeroinitializer
%67 = add <4 x i32> %65, %50
%68 = add <4 x i32> %66, %51
%69 = or i64 %49, 8
%70 = getelementptr inbounds [10000 x i16], [10000 x i16]* %2, i64 0, i64 %69
%71 = bitcast i16* %70 to <4 x i16>*
%72 = load <4 x i16>, <4 x i16>* %71
%73 = getelementptr inbounds i16, i16* %70, i64 4
%74 = bitcast i16* %73 to <4 x i16>*
%75 = load <4 x i16>, <4 x i16>* %74
%76 = sext <4 x i16> %72 to <4 x i32>
%77 = sext <4 x i16> %75 to <4 x i32>
%78 = icmp slt <4 x i32> %38, %76
%79 = icmp slt <4 x i32> %40, %77
%80 = sub nsw <4 x i32> %76, %38
%81 = sub nsw <4 x i32> %77, %40
%82 = select <4 x i1> %78, <4 x i32> %80, <4 x i32> zeroinitializer
%83 = select <4 x i1> %79, <4 x i32> %81, <4 x i32> zeroinitializer
%84 = add <4 x i32> %82, %67
%85 = add <4 x i32> %83, %68
%86 = add nuw i64 %49, 16
%87 = add i64 %52, 2
%88 = icmp eq i64 %87, %47
br i1 %88, label %89, label %48
89: ; preds = %48, %35
%90 = phi <4 x i32> [ undef, %35 ], [ %84, %48 ]
%91 = phi <4 x i32> [ undef, %35 ], [ %85, %48 ]
%92 = phi i64 [ 0, %35 ], [ %86, %48 ]
%93 = phi <4 x i32> [ zeroinitializer, %35 ], [ %84, %48 ]
%94 = phi <4 x i32> [ zeroinitializer, %35 ], [ %85, %48 ]
%95 = icmp eq i64 %44, 0
br i1 %95, label %113, label %96
96: ; preds = %89
%97 = getelementptr inbounds [10000 x i16], [10000 x i16]* %2, i64 0, i64 %92
%98 = bitcast i16* %97 to <4 x i16>*
%99 = load <4 x i16>, <4 x i16>* %98
%100 = getelementptr inbounds i16, i16* %97, i64 4
%101 = bitcast i16* %100 to <4 x i16>*
%102 = load <4 x i16>, <4 x i16>* %101
%103 = sext <4 x i16> %99 to <4 x i32>
%104 = sext <4 x i16> %102 to <4 x i32>
%105 = icmp slt <4 x i32> %38, %103
%106 = icmp slt <4 x i32> %40, %104
%107 = sub nsw <4 x i32> %103, %38
%108 = sub nsw <4 x i32> %104, %40
%109 = select <4 x i1> %105, <4 x i32> %107, <4 x i32> zeroinitializer
%110 = select <4 x i1> %106, <4 x i32> %108, <4 x i32> zeroinitializer
%111 = add <4 x i32> %109, %93
%112 = add <4 x i32> %110, %94
br label %113
113: ; preds = %89, %96
%114 = phi <4 x i32> [ %90, %89 ], [ %111, %96 ]
%115 = phi <4 x i32> [ %91, %89 ], [ %112, %96 ]
%116 = add <4 x i32> %115, %114
%117 = call i32 @llvm.vector.reduce.add.v4i32(<4 x i32> %116)
%118 = icmp eq i64 %36, %33
br i1 %118, label %136, label %119
119: ; preds = %32, %113
%120 = phi i64 [ 0, %32 ], [ %36, %113 ]
%121 = phi i32 [ 0, %32 ], [ %117, %113 ]
br label %124
122: ; preds = %23
%123 = call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0))
br label %139
124: ; preds = %119, %124
%125 = phi i64 [ %134, %124 ], [ %120, %119 ]
%126 = phi i32 [ %133, %124 ], [ %121, %119 ]
%127 = getelementptr inbounds [10000 x i16], [10000 x i16]* %2, i64 0, i64 %125
%128 = load i16, i16* %127
%129 = sext i16 %128 to i32
%130 = icmp slt i32 %28, %129
%131 = sub nsw i32 %129, %28
%132 = select i1 %130, i32 %131, i32 0
%133 = add nsw i32 %132, %126
%134 = add nuw nsw i64 %125, 1
%135 = icmp eq i64 %134, %33
br i1 %135, label %136, label %124
136: ; preds = %124, %113, %30
%137 = phi i32 [ 0, %30 ], [ %117, %113 ], [ %133, %124 ]
%138 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.2, i64 0, i64 0), i32 %137)
br label %139
139: ; preds = %136, %122
%140 = call i32 @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i16* %1)
%141 = load i16, i16* %1
%142 = icmp eq i16 %141, -1
br i1 %142, label %143, label %8
143: ; preds = %139, %0
ret i32 0
}