#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 /*<<< orphan*/ scanf(char *, int *);
int main(void) {
  int n = 0;
  scanf("%d", &n);
  while (n != -1) {
    int a[n];
    int i;
    int sum = 0;
    for (i = 0; i < n; i++) {
      scanf("%d", a + i);
      sum += a[i];
    }
    if (sum % n != 0)
      printf("-1\n");
    else {
      int av = sum / n, ans = 0;
      for (i = 0; i < n; i++) {
        if (a[i] > av)
          ans += a[i] - av;
      }
      printf("%d\n", ans);
    }
    scanf("%d", &n);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x0,-0x8(%rbp)
lea    0xec3(%rip),%rdi
lea    -0x8(%rbp),%rsi
call   1040 <scanf@plt>
cmpl   $0xffffffff,-0x8(%rbp)
je     127a <main+0x15a>
mov    -0x8(%rbp),%eax
mov    %rsp,%rcx
mov    %rcx,-0x10(%rbp)
lea    0xf(,%rax,4),%rdx
and    $0xfffffffffffffff0,%rdx
mov    %rsp,%rcx
sub    %rdx,%rcx
mov    %rcx,-0x30(%rbp)
mov    %rcx,%rsp
mov    %rax,-0x18(%rbp)
movl   $0x0,-0x20(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    11cb <main+0xab>
mov    -0x30(%rbp),%rsi
movslq -0x1c(%rbp),%rax
shl    $0x2,%rax
add    %rax,%rsi
lea    0xe59(%rip),%rdi
call   1040 <scanf@plt>
mov    -0x30(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
add    -0x20(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1185 <main+0x65>
mov    -0x20(%rbp),%eax
cltd
idivl  -0x8(%rbp)
cmp    $0x0,%edx
je     11ee <main+0xce>
lea    0xe21(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
jmp    125e <main+0x13e>
mov    -0x20(%rbp),%eax
cltd
idivl  -0x8(%rbp)
mov    %eax,-0x24(%rbp)
movl   $0x0,-0x28(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    124d <main+0x12d>
mov    -0x30(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
cmp    -0x24(%rbp),%eax
jle    123a <main+0x11a>
mov    -0x30(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
sub    -0x24(%rbp),%eax
add    -0x28(%rbp),%eax
mov    %eax,-0x28(%rbp)
jmp    123f <main+0x11f>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1206 <main+0xe6>
mov    -0x28(%rbp),%esi
lea    0xdb0(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
lea    0xd9b(%rip),%rdi
lea    -0x8(%rbp),%rsi
call   1040 <scanf@plt>
mov    -0x10(%rbp),%rax
mov    %rax,%rsp
jmp    1146 <main+0x26>
xor    %eax,%eax
mov    %rbp,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
mov    %rsp,%rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
movl   $0x0,-0x2c(%rbp)
lea    0xeb1(%rip),%rdi
lea    -0x2c(%rbp),%rsi
call   1050 <scanf@plt>
mov    -0x2c(%rbp),%eax
cmp    $0xffffffff,%eax
je     138d <main+0x25d>
lea    0xe95(%rip),%r13
xor    %r14d,%r14d
pxor   %xmm8,%xmm8
jmp    11ac <main+0x7c>
cs nopw 0x0(%rax,%rax,1)
nop
lea    0xe80(%rip),%rdi
call   1030 <puts@plt>
mov    %r13,%rdi
lea    -0x2c(%rbp),%rsi
call   1050 <scanf@plt>
mov    %r12,%rsp
mov    -0x2c(%rbp),%eax
cmp    $0xffffffff,%eax
pxor   %xmm8,%xmm8
je     138d <main+0x25d>
mov    %rsp,%r12
mov    %eax,%eax
mov    %rsp,%r15
lea    0xf(,%rax,4),%rax
and    $0xfffffffffffffff0,%rax
sub    %rax,%r15
mov    %r15,%rsp
mov    -0x2c(%rbp),%esi
mov    $0x0,%ebx
test   %esi,%esi
jle    120b <main+0xdb>
mov    %r12,-0x38(%rbp)
xor    %r12d,%r12d
mov    %r15,%r14
xor    %ebx,%ebx
xchg   %ax,%ax
mov    %r13,%rdi
mov    %r14,%rsi
call   1050 <scanf@plt>
add    (%r14),%ebx
add    $0x1,%r12
movslq -0x2c(%rbp),%rsi
add    $0x4,%r14
cmp    %rsi,%r12
jl     11e0 <main+0xb0>
xor    %r14d,%r14d
pxor   %xmm8,%xmm8
mov    -0x38(%rbp),%r12
mov    %ebx,%eax
cltd
idiv   %esi
test   %edx,%edx
jne    1180 <main+0x50>
test   %esi,%esi
jle    122c <main+0xfc>
mov    %esi,%ecx
cmp    $0x8,%esi
jae    1233 <main+0x103>
xor    %edx,%edx
xor    %esi,%esi
jmp    1350 <main+0x220>
xor    %esi,%esi
jmp    1365 <main+0x235>
mov    %ecx,%edx
and    $0xfffffff8,%edx
movd   %eax,%xmm0
pshufd $0x0,%xmm0,%xmm0
lea    -0x8(%rdx),%rsi
mov    %rsi,%rbx
shr    $0x3,%rbx
add    $0x1,%rbx
test   %rsi,%rsi
je     1378 <main+0x248>
mov    %rbx,%rsi
and    $0xfffffffffffffffe,%rsi
pxor   %xmm1,%xmm1
xor    %edi,%edi
pxor   %xmm2,%xmm2
nopw   0x0(%rax,%rax,1)
movdqa (%r15,%rdi,4),%xmm3
movdqa 0x10(%r15,%rdi,4),%xmm4
movdqa 0x20(%r15,%rdi,4),%xmm5
movdqa 0x30(%r15,%rdi,4),%xmm6
psubd  %xmm0,%xmm3
psubd  %xmm0,%xmm4
movdqa %xmm3,%xmm7
pcmpgtd %xmm8,%xmm7
pand   %xmm3,%xmm7
paddd  %xmm1,%xmm7
movdqa %xmm4,%xmm3
pcmpgtd %xmm8,%xmm3
pand   %xmm4,%xmm3
paddd  %xmm2,%xmm3
psubd  %xmm0,%xmm5
psubd  %xmm0,%xmm6
movdqa %xmm5,%xmm1
pcmpgtd %xmm8,%xmm1
pand   %xmm5,%xmm1
paddd  %xmm7,%xmm1
movdqa %xmm6,%xmm2
pcmpgtd %xmm8,%xmm2
pand   %xmm6,%xmm2
paddd  %xmm3,%xmm2
add    $0x10,%rdi
add    $0xfffffffffffffffe,%rsi
jne    1270 <main+0x140>
test   $0x1,%bl
je     1325 <main+0x1f5>
movdqa (%r15,%rdi,4),%xmm3
movdqa 0x10(%r15,%rdi,4),%xmm4
psubd  %xmm0,%xmm3
psubd  %xmm0,%xmm4
movdqa %xmm3,%xmm0
pcmpgtd %xmm8,%xmm0
pand   %xmm3,%xmm0
paddd  %xmm0,%xmm1
movdqa %xmm4,%xmm0
pcmpgtd %xmm8,%xmm0
pand   %xmm4,%xmm0
paddd  %xmm0,%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     1365 <main+0x235>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    (%r15,%rdx,4),%edi
sub    %eax,%edi
cmovle %r14d,%edi
add    %edi,%esi
add    $0x1,%rdx
cmp    %rdx,%rcx
jne    1350 <main+0x220>
lea    0xc97(%rip),%rdi
xor    %eax,%eax
call   1040 <printf@plt>
jmp    118c <main+0x5c>
pxor   %xmm1,%xmm1
xor    %edi,%edi
pxor   %xmm2,%xmm2
test   $0x1,%bl
jne    12ee <main+0x1be>
jmp    1325 <main+0x1f5>
xor    %eax,%eax
lea    -0x28(%rbp),%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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