#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 *, double);
int scanf(char *, ...);
main() {
  double money[1000];
  int N;
  int i;
  double average;
  double result1, result2;
  int temp;
  while (scanf("%d", &N), N != 0) {
    average = 0;
    result1 = 0;
    result2 = 0;
    for (i = 0; i < N; i++) {
      scanf("%lf", &money[i]);
      average += money[i];
    }
    average = average / N + 0.005;
    temp = (int)(average * 100);
    average = temp / 100.0;
    for (i = 0; i < N; i++)
      if (average < money[i])
        result1 += money[i] - average;
      else
        result2 += average - money[i];
    if (result1 < result2)
      printf("$%.2lf\n", result1);
    else
      printf("$%.2lf\n", result2);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x1f80,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xed7(%rip),%rdi
lea    -0x1f54(%rbp),%rsi
mov    $0x0,%al
call   1040 <scanf@plt>
cmpl   $0x0,-0x1f54(%rbp)
je     133e <main+0x21e>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x1f60(%rbp)
ff
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x1f68(%rbp)
ff
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x1f70(%rbp)
ff
movl   $0x0,-0x1f58(%rbp)
mov    -0x1f58(%rbp),%eax
cmp    -0x1f54(%rbp),%eax
jge    11e8 <main+0xc8>
movslq -0x1f58(%rbp),%rax
lea    -0x1f50(%rbp),%rsi
shl    $0x3,%rax
add    %rax,%rsi
lea    0xe66(%rip),%rdi
mov    $0x0,%al
call   1040 <scanf@plt>
movslq -0x1f58(%rbp),%rax
movsd  -0x1f50(%rbp,%rax,8),%xmm0
ff ff
addsd  -0x1f60(%rbp),%xmm0
ff
movsd  %xmm0,-0x1f60(%rbp)
ff
mov    -0x1f58(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1f58(%rbp)
jmp    117f <main+0x5f>
movsd  -0x1f60(%rbp),%xmm0
ff
cvtsi2sdl -0x1f54(%rbp),%xmm1
ff
divsd  %xmm1,%xmm0
movsd  0xe04(%rip),%xmm1
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x1f60(%rbp)
ff
movsd  0xde8(%rip),%xmm0
mulsd  -0x1f60(%rbp),%xmm0
ff
cvttsd2si %xmm0,%eax
mov    %eax,-0x1f74(%rbp)
cvtsi2sdl -0x1f74(%rbp),%xmm0
ff
movsd  0xdc6(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x1f60(%rbp)
ff
movl   $0x0,-0x1f58(%rbp)
mov    -0x1f58(%rbp),%eax
cmp    -0x1f54(%rbp),%eax
jge    12f2 <main+0x1d2>
movsd  -0x1f60(%rbp),%xmm1
ff
movslq -0x1f58(%rbp),%rax
movsd  -0x1f50(%rbp,%rax,8),%xmm0
ff ff
ucomisd %xmm1,%xmm0
jbe    12b1 <main+0x191>
movslq -0x1f58(%rbp),%rax
movsd  -0x1f50(%rbp,%rax,8),%xmm0
ff ff
subsd  -0x1f60(%rbp),%xmm0
ff
addsd  -0x1f68(%rbp),%xmm0
ff
movsd  %xmm0,-0x1f68(%rbp)
ff
jmp    12d9 <main+0x1b9>
movsd  -0x1f60(%rbp),%xmm0
ff
movslq -0x1f58(%rbp),%rax
subsd  -0x1f50(%rbp,%rax,8),%xmm0
ff ff
addsd  -0x1f70(%rbp),%xmm0
ff
movsd  %xmm0,-0x1f70(%rbp)
ff
jmp    12de <main+0x1be>
mov    -0x1f58(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1f58(%rbp)
jmp    1250 <main+0x130>
movsd  -0x1f68(%rbp),%xmm1
ff
movsd  -0x1f70(%rbp),%xmm0
ff
ucomisd %xmm1,%xmm0
jbe    1325 <main+0x205>
movsd  -0x1f68(%rbp),%xmm0
ff
lea    0xcfc(%rip),%rdi
call   1030 <printf@plt>
jmp    1339 <main+0x219>
movsd  -0x1f70(%rbp),%xmm0
ff
lea    0xce3(%rip),%rdi
call   1030 <printf@plt>
jmp    1132 <main+0x12>
xor    %eax,%eax
add    $0x1f80,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x1f68,%rsp
lea    0xee0(%rip),%rdi
lea    0xc(%rsp),%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
mov    0xc(%rsp),%ecx
test   %ecx,%ecx
je     136b <main+0x24b>
lea    0xec4(%rip),%r13
lea    0xec1(%rip),%r14
lea    0xeb3(%rip),%r15
lea    0xc(%rsp),%r12
jmp    1195 <main+0x75>
nopl   0x0(%rax)
movapd %xmm1,%xmm0
mov    %r14,%rdi
call   1030 <printf@plt>
mov    %r15,%rdi
mov    %r12,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
mov    0xc(%rsp),%ecx
test   %ecx,%ecx
je     136b <main+0x24b>
xorpd  %xmm1,%xmm1
xorpd  %xmm3,%xmm3
test   %ecx,%ecx
jle    11e3 <main+0xc3>
xorpd  %xmm3,%xmm3
lea    0x20(%rsp),%rbx
xor    %ebp,%ebp
nopl   0x0(%rax)
movapd %xmm3,0x10(%rsp)
mov    %r13,%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1040 <scanf@plt>
movapd 0x10(%rsp),%xmm3
addsd  (%rbx),%xmm3
add    $0x1,%rbp
movslq 0xc(%rsp),%rcx
add    $0x8,%rbx
cmp    %rcx,%rbp
jl     11b0 <main+0x90>
xorpd  %xmm1,%xmm1
xorps  %xmm0,%xmm0
cvtsi2sd %ecx,%xmm0
divsd  %xmm0,%xmm3
addsd  0xe0a(%rip),%xmm3
test   %ecx,%ecx
jle    1170 <main+0x50>
movsd  0xe02(%rip),%xmm2
mulsd  %xmm2,%xmm3
cvttpd2dq %xmm3,%xmm0
cvtdq2pd %xmm0,%xmm8
divsd  %xmm2,%xmm8
mov    %ecx,%eax
cmp    $0x1,%ecx
jne    1260 <main+0x140>
xorpd  %xmm1,%xmm1
xor    %ecx,%ecx
xorpd  %xmm0,%xmm0
movsd  0xddf(%rip),%xmm7
test   $0x1,%al
je     135c <main+0x23c>
movsd  0x20(%rsp,%rcx,8),%xmm2
ucomisd %xmm8,%xmm2
ja     1328 <main+0x208>
movapd %xmm7,%xmm3
jmp    1331 <main+0x211>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    %eax,%edx
and    $0xfffffffe,%edx
xorpd  %xmm1,%xmm1
xor    %ecx,%ecx
xorpd  %xmm0,%xmm0
movsd  0xd99(%rip),%xmm7
jmp    12e7 <main+0x1c7>
nopl   0x0(%rax)
movapd %xmm7,%xmm5
movapd %xmm8,%xmm6
subsd  %xmm2,%xmm6
addsd  %xmm4,%xmm0
addsd  %xmm5,%xmm0
movapd %xmm8,%xmm4
cmpltsd %xmm2,%xmm4
movapd %xmm4,%xmm2
andnpd %xmm6,%xmm2
andpd  %xmm7,%xmm4
orpd   %xmm2,%xmm4
addsd  %xmm4,%xmm1
movapd %xmm8,%xmm2
subsd  %xmm3,%xmm2
movapd %xmm8,%xmm4
cmpltsd %xmm3,%xmm4
movapd %xmm4,%xmm3
andnpd %xmm2,%xmm3
andpd  %xmm7,%xmm4
orpd   %xmm3,%xmm4
addsd  %xmm4,%xmm1
add    $0x2,%rcx
cmp    %rcx,%rdx
je     1231 <main+0x111>
movsd  0x20(%rsp,%rcx,8),%xmm2
ucomisd %xmm8,%xmm2
ja     1300 <main+0x1e0>
movapd %xmm7,%xmm4
jmp    1309 <main+0x1e9>
nopw   0x0(%rax,%rax,1)
movapd %xmm2,%xmm4
subsd  %xmm8,%xmm4
movsd  0x28(%rsp,%rcx,8),%xmm3
ucomisd %xmm8,%xmm3
jbe    1280 <main+0x160>
movapd %xmm3,%xmm5
subsd  %xmm8,%xmm5
jmp    1284 <main+0x164>
movapd %xmm2,%xmm3
subsd  %xmm8,%xmm3
addsd  %xmm3,%xmm0
movapd %xmm8,%xmm3
subsd  %xmm2,%xmm3
cmpltsd %xmm2,%xmm8
movapd %xmm8,%xmm2
andnpd %xmm3,%xmm2
andpd  %xmm7,%xmm8
orpd   %xmm2,%xmm8
addsd  %xmm8,%xmm1
ucomisd %xmm0,%xmm1
jbe    1170 <main+0x50>
jmp    1174 <main+0x54>
xor    %eax,%eax
add    $0x1f68,%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"%lf\00"
@.str.2 = [8 x i8] c"$%.2lf\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca [1000 x double]
%3 = alloca i32
%4 = alloca i32
%5 = alloca double
%6 = alloca double
%7 = alloca double
%8 = alloca i32
store i32 0, i32* %1
br label %9
9: ; preds = %87, %0
%10 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %3)
%11 = load i32, i32* %3
%12 = icmp ne i32 %11, 0
br i1 %12, label %13, label %88
13: ; preds = %9
store double 0.000000e+00, double* %5
store double 0.000000e+00, double* %6
store double 0.000000e+00, double* %7
store i32 0, i32* %4
br label %14
14: ; preds = %29, %13
%15 = load i32, i32* %4
%16 = load i32, i32* %3
%17 = icmp slt i32 %15, %16
br i1 %17, label %18, label %32
18: ; preds = %14
%19 = load i32, i32* %4
%20 = sext i32 %19 to i64
%21 = getelementptr inbounds [1000 x double], [1000 x double]* %2, i64 0, i64 %20
%22 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), double* %21)
%23 = load i32, i32* %4
%24 = sext i32 %23 to i64
%25 = getelementptr inbounds [1000 x double], [1000 x double]* %2, i64 0, i64 %24
%26 = load double, double* %25
%27 = load double, double* %5
%28 = fadd double %27, %26
store double %28, double* %5
br label %29
29: ; preds = %18
%30 = load i32, i32* %4
%31 = add nsw i32 %30, 1
store i32 %31, i32* %4
br label %14
32: ; preds = %14
%33 = load double, double* %5
%34 = load i32, i32* %3
%35 = sitofp i32 %34 to double
%36 = fdiv double %33, %35
%37 = fadd double %36, 5.000000e-03
store double %37, double* %5
%38 = load double, double* %5
%39 = fmul double %38, 1.000000e+02
%40 = fptosi double %39 to i32
store i32 %40, i32* %8
%41 = load i32, i32* %8
%42 = sitofp i32 %41 to double
%43 = fdiv double %42, 1.000000e+02
store double %43, double* %5
store i32 0, i32* %4
br label %44
44: ; preds = %74, %32
%45 = load i32, i32* %4
%46 = load i32, i32* %3
%47 = icmp slt i32 %45, %46
br i1 %47, label %48, label %77
48: ; preds = %44
%49 = load double, double* %5
%50 = load i32, i32* %4
%51 = sext i32 %50 to i64
%52 = getelementptr inbounds [1000 x double], [1000 x double]* %2, i64 0, i64 %51
%53 = load double, double* %52
%54 = fcmp olt double %49, %53
br i1 %54, label %55, label %64
55: ; preds = %48
%56 = load i32, i32* %4
%57 = sext i32 %56 to i64
%58 = getelementptr inbounds [1000 x double], [1000 x double]* %2, i64 0, i64 %57
%59 = load double, double* %58
%60 = load double, double* %5
%61 = fsub double %59, %60
%62 = load double, double* %6
%63 = fadd double %62, %61
store double %63, double* %6
br label %73
64: ; preds = %48
%65 = load double, double* %5
%66 = load i32, i32* %4
%67 = sext i32 %66 to i64
%68 = getelementptr inbounds [1000 x double], [1000 x double]* %2, i64 0, i64 %67
%69 = load double, double* %68
%70 = fsub double %65, %69
%71 = load double, double* %7
%72 = fadd double %71, %70
store double %72, double* %7
br label %73
73: ; preds = %64, %55
br label %74
74: ; preds = %73
%75 = load i32, i32* %4
%76 = add nsw i32 %75, 1
store i32 %76, i32* %4
br label %44
77: ; preds = %44
%78 = load double, double* %6
%79 = load double, double* %7
%80 = fcmp olt double %78, %79
br i1 %80, label %81, label %84
81: ; preds = %77
%82 = load double, double* %6
%83 = call i32 @printf(i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str.2, i64 0, i64 0), double %82)
br label %87
84: ; preds = %77
%85 = load double, double* %7
%86 = call i32 @printf(i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str.2, i64 0, i64 0), double %85)
br label %87
87: ; preds = %84, %81
br label %9
88: ; preds = %9
ret i32 0
}

LLVM IR (-O2):
@.str = [3 x i8] c"%d\00"
@.str.1 = [4 x i8] c"%lf\00"
@.str.2 = [8 x i8] c"$%.2lf\0A\00"
define i32 @main() {
%1 = alloca [1000 x double]
%2 = alloca i32
%3 = bitcast [1000 x double]* %1 to i8*
%4 = bitcast i32* %2 to i8*
%5 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %2)
%6 = load i32, i32* %2
%7 = icmp eq i32 %6, 0
br i1 %7, label %95, label %8
8: ; preds = %0, %89
%9 = phi i32 [ %93, %89 ], [ %6, %0 ]
%10 = icmp sgt i32 %9, 0
br i1 %10, label %11, label %22
11: ; preds = %8, %11
%12 = phi i64 [ %18, %11 ], [ 0, %8 ]
%13 = phi double [ %17, %11 ], [ 0.000000e+00, %8 ]
%14 = getelementptr inbounds [1000 x double], [1000 x double]* %1, i64 0, i64 %12
%15 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), double* %14)
%16 = load double, double* %14
%17 = fadd double %13, %16
%18 = add nuw nsw i64 %12, 1
%19 = load i32, i32* %2
%20 = sext i32 %19 to i64
%21 = icmp slt i64 %18, %20
br i1 %21, label %11, label %22
22: ; preds = %11, %8
%23 = phi double [ 0.000000e+00, %8 ], [ %17, %11 ]
%24 = phi i32 [ %9, %8 ], [ %19, %11 ]
%25 = sitofp i32 %24 to double
%26 = fdiv double %23, %25
%27 = fadd double %26, 5.000000e-03
%28 = fmul double %27, 1.000000e+02
%29 = fptosi double %28 to i32
%30 = sitofp i32 %29 to double
%31 = fdiv double %30, 1.000000e+02
%32 = icmp sgt i32 %24, 0
br i1 %32, label %33, label %87
33: ; preds = %22
%34 = zext i32 %24 to i64
%35 = and i64 %34, 1
%36 = icmp eq i32 %24, 1
br i1 %36, label %66, label %37
37: ; preds = %33
%38 = and i64 %34, 4294967294
br label %39
39: ; preds = %39, %37
%40 = phi i64 [ 0, %37 ], [ %63, %39 ]
%41 = phi double [ 0.000000e+00, %37 ], [ %62, %39 ]
%42 = phi double [ 0.000000e+00, %37 ], [ %60, %39 ]
%43 = phi i64 [ 0, %37 ], [ %64, %39 ]
%44 = getelementptr inbounds [1000 x double], [1000 x double]* %1, i64 0, i64 %40
%45 = load double, double* %44
%46 = fcmp olt double %31, %45
%47 = fsub double %45, %31
%48 = fsub double %31, %45
%49 = select i1 %46, double %47, double -0.000000e+00
%50 = fadd double %42, %49
%51 = select i1 %46, double -0.000000e+00, double %48
%52 = fadd double %41, %51
%53 = or i64 %40, 1
%54 = getelementptr inbounds [1000 x double], [1000 x double]* %1, i64 0, i64 %53
%55 = load double, double* %54
%56 = fcmp olt double %31, %55
%57 = fsub double %55, %31
%58 = fsub double %31, %55
%59 = select i1 %56, double %57, double -0.000000e+00
%60 = fadd double %50, %59
%61 = select i1 %56, double -0.000000e+00, double %58
%62 = fadd double %52, %61
%63 = add nuw nsw i64 %40, 2
%64 = add i64 %43, 2
%65 = icmp eq i64 %64, %38
br i1 %65, label %66, label %39
66: ; preds = %39, %33
%67 = phi double [ undef, %33 ], [ %60, %39 ]
%68 = phi double [ undef, %33 ], [ %62, %39 ]
%69 = phi i64 [ 0, %33 ], [ %63, %39 ]
%70 = phi double [ 0.000000e+00, %33 ], [ %62, %39 ]
%71 = phi double [ 0.000000e+00, %33 ], [ %60, %39 ]
%72 = icmp eq i64 %35, 0
br i1 %72, label %83, label %73
73: ; preds = %66
%74 = getelementptr inbounds [1000 x double], [1000 x double]* %1, i64 0, i64 %69
%75 = load double, double* %74
%76 = fcmp olt double %31, %75
%77 = fsub double %75, %31
%78 = fsub double %31, %75
%79 = select i1 %76, double %77, double -0.000000e+00
%80 = fadd double %71, %79
%81 = select i1 %76, double -0.000000e+00, double %78
%82 = fadd double %70, %81
br label %83
83: ; preds = %66, %73
%84 = phi double [ %67, %66 ], [ %80, %73 ]
%85 = phi double [ %68, %66 ], [ %82, %73 ]
%86 = fcmp olt double %84, %85
br i1 %86, label %89, label %87
87: ; preds = %22, %83
%88 = phi double [ %85, %83 ], [ 0.000000e+00, %22 ]
br label %89
89: ; preds = %83, %87
%90 = phi double [ %88, %87 ], [ %84, %83 ]
%91 = call i32 @printf(i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str.2, i64 0, i64 0), double %90)
%92 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %2)
%93 = load i32, i32* %2
%94 = icmp eq i32 %93, 0
br i1 %94, label %95, label %8
95: ; preds = %89, %0
ret i32 0
}