#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 /*<<< orphan*/ scanf(char *, int *);
int main() {
  int n, c, a[1000], b, j, i, num;
  double ave, ave_high;
  scanf("%d", &c);
  for (j = 1; j <= c; j++) {
    num = 0;
    b = 0;
    ave_high = 0;
    scanf("%d", &n);
    for (i = 0; i < n; i++) {
      scanf("%d", &a[i]);
      b = b + a[i];
      num = b / n;
    }
    for (i = 0; i <= n - 1; i++)
      if (a[i] > num) {
        ave_high++;
      }
    ave = ave_high * 100 / n;
    printf("%.3lf%%\n", ave);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0xfd0,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xed7(%rip),%rdi
lea    -0xc(%rbp),%rsi
call   1040 <scanf@plt>
movl   $0x1,-0xfb8(%rbp)
mov    -0xfb8(%rbp),%eax
cmp    -0xc(%rbp),%eax
jg     12b4 <main+0x194>
movl   $0x0,-0xfc0(%rbp)
movl   $0x0,-0xfb4(%rbp)
xorps  %xmm0,%xmm0
movsd  %xmm0,-0xfd0(%rbp)
ff
lea    0xe8f(%rip),%rdi
lea    -0x8(%rbp),%rsi
call   1040 <scanf@plt>
movl   $0x0,-0xfbc(%rbp)
mov    -0xfbc(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    1202 <main+0xe2>
movslq -0xfbc(%rbp),%rax
lea    -0xfb0(%rbp),%rsi
shl    $0x2,%rax
add    %rax,%rsi
lea    0xe51(%rip),%rdi
call   1040 <scanf@plt>
mov    -0xfb4(%rbp),%eax
movslq -0xfbc(%rbp),%rcx
add    -0xfb0(%rbp,%rcx,4),%eax
mov    %eax,-0xfb4(%rbp)
mov    -0xfb4(%rbp),%eax
cltd
idivl  -0x8(%rbp)
mov    %eax,-0xfc0(%rbp)
mov    -0xfbc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xfbc(%rbp)
jmp    1194 <main+0x74>
movl   $0x0,-0xfbc(%rbp)
mov    -0xfbc(%rbp),%eax
mov    -0x8(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jg     126b <main+0x14b>
movslq -0xfbc(%rbp),%rax
mov    -0xfb0(%rbp,%rax,4),%eax
cmp    -0xfc0(%rbp),%eax
jle    1252 <main+0x132>
movsd  0xdc6(%rip),%xmm0
addsd  -0xfd0(%rbp),%xmm0
ff
movsd  %xmm0,-0xfd0(%rbp)
ff
jmp    1257 <main+0x137>
mov    -0xfbc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xfbc(%rbp)
jmp    120c <main+0xec>
movsd  0xd8d(%rip),%xmm0
mulsd  -0xfd0(%rbp),%xmm0
ff
cvtsi2sdl -0x8(%rbp),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0xfc8(%rbp)
ff
movsd  -0xfc8(%rbp),%xmm0
ff
lea    0xd78(%rip),%rdi
call   1030 <printf@plt>
mov    -0xfb8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xfb8(%rbp)
jmp    114c <main+0x2c>
xor    %eax,%eax
add    $0xfd0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0xfb8,%rsp
lea    0xed8(%rip),%rdi
lea    0x8(%rsp),%rsi
call   1040 <scanf@plt>
cmpl   $0x0,0x8(%rsp)
jle    12c4 <main+0x1a4>
mov    $0x1,%r13d
lea    0xeb6(%rip),%r12
lea    0xeb2(%rip),%r15
jmp    11a1 <main+0x81>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movapd %xmm2,%xmm0
mulsd  0xe8c(%rip),%xmm0
xorps  %xmm1,%xmm1
cvtsi2sd %ecx,%xmm1
divsd  %xmm1,%xmm0
mov    %r15,%rdi
call   1030 <printf@plt>
lea    0x1(%r13),%eax
cmp    0x8(%rsp),%r13d
mov    %eax,%r13d
jge    12c4 <main+0x1a4>
mov    %r12,%rdi
lea    0xc(%rsp),%rsi
call   1040 <scanf@plt>
mov    0xc(%rsp),%ecx
xorpd  %xmm0,%xmm0
test   %ecx,%ecx
jle    1174 <main+0x54>
xor    %r14d,%r14d
lea    0x10(%rsp),%rbx
xor    %ebp,%ebp
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %r12,%rdi
mov    %rbx,%rsi
call   1040 <scanf@plt>
add    (%rbx),%ebp
add    $0x1,%r14
movslq 0xc(%rsp),%rcx
add    $0x4,%rbx
cmp    %rcx,%r14
jl     11d0 <main+0xb0>
mov    %ebp,%eax
cltd
idiv   %ecx
test   %ecx,%ecx
jle    1250 <main+0x130>
mov    %ecx,%esi
lea    -0x1(%rsi),%rdi
mov    %esi,%edx
and    $0x3,%edx
cmp    $0x3,%rdi
jae    1259 <main+0x139>
xorpd  %xmm0,%xmm0
xor    %edi,%edi
movsd  0xde9(%rip),%xmm1
test   %rdx,%rdx
je     1174 <main+0x54>
lea    (%rsp,%rdi,4),%rsi
add    $0x10,%rsi
xor    %edi,%edi
movapd %xmm0,%xmm2
jmp    1241 <main+0x121>
add    $0x1,%rdi
movapd %xmm2,%xmm0
cmp    %rdi,%rdx
je     1170 <main+0x50>
addsd  %xmm1,%xmm2
cmp    %eax,(%rsi,%rdi,4)
jg     1230 <main+0x110>
movapd %xmm0,%xmm2
jmp    1230 <main+0x110>
xorpd  %xmm0,%xmm0
jmp    1174 <main+0x54>
and    $0xfffffffc,%esi
xorpd  %xmm0,%xmm0
xor    %edi,%edi
movsd  0xd96(%rip),%xmm1
jmp    1279 <main+0x159>
nopl   0x0(%rax)
add    $0x4,%rdi
cmp    %rdi,%rsi
je     1217 <main+0xf7>
cmp    %eax,0x10(%rsp,%rdi,4)
jg     12a0 <main+0x180>
cmp    %eax,0x14(%rsp,%rdi,4)
jg     12aa <main+0x18a>
cmp    %eax,0x18(%rsp,%rdi,4)
jg     12b4 <main+0x194>
cmp    %eax,0x1c(%rsp,%rdi,4)
jle    1270 <main+0x150>
jmp    12be <main+0x19e>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
addsd  %xmm1,%xmm0
cmp    %eax,0x14(%rsp,%rdi,4)
jle    1285 <main+0x165>
addsd  %xmm1,%xmm0
cmp    %eax,0x18(%rsp,%rdi,4)
jle    128b <main+0x16b>
addsd  %xmm1,%xmm0
cmp    %eax,0x1c(%rsp,%rdi,4)
jle    1270 <main+0x150>
addsd  %xmm1,%xmm0
jmp    1270 <main+0x150>
xor    %eax,%eax
add    $0xfb8,%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 = [9 x i8] c"%.3lf%%\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca i32
%4 = alloca [1000 x i32]
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca double
%10 = alloca double
store i32 0, i32* %1
%11 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %3)
store i32 1, i32* %6
br label %12
12: ; preds = %67, %0
%13 = load i32, i32* %6
%14 = load i32, i32* %3
%15 = icmp sle i32 %13, %14
br i1 %15, label %16, label %70
16: ; preds = %12
store i32 0, i32* %8
store i32 0, i32* %5
store double 0.000000e+00, double* %10
%17 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %2)
store i32 0, i32* %7
br label %18
18: ; preds = %36, %16
%19 = load i32, i32* %7
%20 = load i32, i32* %2
%21 = icmp slt i32 %19, %20
br i1 %21, label %22, label %39
22: ; preds = %18
%23 = load i32, i32* %7
%24 = sext i32 %23 to i64
%25 = getelementptr inbounds [1000 x i32], [1000 x i32]* %4, i64 0, 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 = load i32, i32* %7
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds [1000 x i32], [1000 x i32]* %4, i64 0, i64 %29
%31 = load i32, i32* %30
%32 = add nsw i32 %27, %31
store i32 %32, i32* %5
%33 = load i32, i32* %5
%34 = load i32, i32* %2
%35 = sdiv i32 %33, %34
store i32 %35, i32* %8
br label %36
36: ; preds = %22
%37 = load i32, i32* %7
%38 = add nsw i32 %37, 1
store i32 %38, i32* %7
br label %18
39: ; preds = %18
store i32 0, i32* %7
br label %40
40: ; preds = %56, %39
%41 = load i32, i32* %7
%42 = load i32, i32* %2
%43 = sub nsw i32 %42, 1
%44 = icmp sle i32 %41, %43
br i1 %44, label %45, label %59
45: ; preds = %40
%46 = load i32, i32* %7
%47 = sext i32 %46 to i64
%48 = getelementptr inbounds [1000 x i32], [1000 x i32]* %4, i64 0, i64 %47
%49 = load i32, i32* %48
%50 = load i32, i32* %8
%51 = icmp sgt i32 %49, %50
br i1 %51, label %52, label %55
52: ; preds = %45
%53 = load double, double* %10
%54 = fadd double %53, 1.000000e+00
store double %54, double* %10
br label %55
55: ; preds = %52, %45
br label %56
56: ; preds = %55
%57 = load i32, i32* %7
%58 = add nsw i32 %57, 1
store i32 %58, i32* %7
br label %40
59: ; preds = %40
%60 = load double, double* %10
%61 = fmul double %60, 1.000000e+02
%62 = load i32, i32* %2
%63 = sitofp i32 %62 to double
%64 = fdiv double %61, %63
store double %64, double* %9
%65 = load double, double* %9
%66 = call i32 @printf(i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.1, i64 0, i64 0), double %65)
br label %67
67: ; preds = %59
%68 = load i32, i32* %6
%69 = add nsw i32 %68, 1
store i32 %69, i32* %6
br label %12
70: ; preds = %12
ret i32 0
}

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