#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 *, float, int);
int /*<<< orphan*/ scanf(char *, int *);
int main() {
  int n, t, gr[1000], sum, avg, count, i;
  scanf("%i", &t);
  while (t--) {
    scanf("%d", &n);
    sum = 0;
    for (i = 0; i < n; i++) {
      scanf("%i", &gr[i]);
      sum += gr[i];
    }
    avg = sum / n;
    count = 0;
    for (i = 0; i < n; i++) {
      if (gr[i] > avg)
        count++;
    }
    printf("%.3lf%c\n", (((float)count) * 100) / n, 37);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0xfc0,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xecb(%rip),%rdi
lea    -0xc(%rbp),%rsi
call   1040 <scanf@plt>
mov    -0xc(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0xc(%rbp)
cmp    $0x0,%eax
je     1280 <main+0x160>
lea    0xeaa(%rip),%rdi
lea    -0x8(%rbp),%rsi
call   1040 <scanf@plt>
movl   $0x0,-0xfb4(%rbp)
movl   $0x0,-0xfc0(%rbp)
mov    -0xfc0(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    11d8 <main+0xb8>
movslq -0xfc0(%rbp),%rax
lea    -0xfb0(%rbp),%rsi
shl    $0x2,%rax
add    %rax,%rsi
lea    0xe5f(%rip),%rdi
call   1040 <scanf@plt>
movslq -0xfc0(%rbp),%rax
mov    -0xfb0(%rbp,%rax,4),%eax
add    -0xfb4(%rbp),%eax
mov    %eax,-0xfb4(%rbp)
mov    -0xfc0(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xfc0(%rbp)
jmp    117a <main+0x5a>
mov    -0xfb4(%rbp),%eax
cltd
idivl  -0x8(%rbp)
mov    %eax,-0xfb8(%rbp)
movl   $0x0,-0xfbc(%rbp)
movl   $0x0,-0xfc0(%rbp)
mov    -0xfc0(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    124d <main+0x12d>
movslq -0xfc0(%rbp),%rax
mov    -0xfb0(%rbp,%rax,4),%eax
cmp    -0xfb8(%rbp),%eax
jle    1234 <main+0x114>
mov    -0xfbc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xfbc(%rbp)
jmp    1239 <main+0x119>
mov    -0xfc0(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xfc0(%rbp)
jmp    11fc <main+0xdc>
cvtsi2ssl -0xfbc(%rbp),%xmm0
ff
movss  0xda3(%rip),%xmm1
mulss  %xmm1,%xmm0
cvtsi2ssl -0x8(%rbp),%xmm1
divss  %xmm1,%xmm0
lea    0xd99(%rip),%rdi
mov    $0x25,%esi
call   1030 <printf@plt>
jmp    1142 <main+0x22>
xor    %eax,%eax
add    $0xfc0,%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    0xecc(%rip),%rdi
lea    0x8(%rsp),%rsi
call   1040 <scanf@plt>
subl   $0x1,0x8(%rsp)
jae    115d <main+0x3d>
xor    %eax,%eax
add    $0xfb8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
lea    0xc(%rsp),%r15
lea    0xe9b(%rip),%r13
lea    0xe9a(%rip),%r12
jmp    11b0 <main+0x90>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
xor    %edi,%edi
xorps  %xmm0,%xmm0
cvtsi2ss %edi,%xmm0
mulss  0xe6f(%rip),%xmm0
xorps  %xmm1,%xmm1
cvtsi2ss %ecx,%xmm1
divss  %xmm1,%xmm0
mov    %r12,%rdi
mov    $0x25,%esi
call   1030 <printf@plt>
subl   $0x1,0x8(%rsp)
jb     1149 <main+0x29>
lea    0xe50(%rip),%rdi
mov    %r15,%rsi
call   1040 <scanf@plt>
mov    0xc(%rsp),%ecx
mov    $0x0,%edi
test   %ecx,%ecx
jle    1182 <main+0x62>
xor    %r14d,%r14d
lea    0x10(%rsp),%rbx
xor    %ebp,%ebp
cs nopw 0x0(%rax,%rax,1)
mov    %r13,%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     11e0 <main+0xc0>
mov    %ebp,%eax
cltd
idiv   %ecx
test   %ecx,%ecx
jle    1180 <main+0x60>
mov    %ecx,%edx
cmp    $0x8,%ecx
jae    121c <main+0xfc>
xor    %esi,%esi
xor    %edi,%edi
jmp    12f0 <main+0x1d0>
mov    %edx,%esi
and    $0xfffffff8,%esi
movd   %eax,%xmm0
pshufd $0x0,%xmm0,%xmm0
lea    -0x8(%rsi),%rdi
mov    %rdi,%rbx
shr    $0x3,%rbx
add    $0x1,%rbx
test   %rdi,%rdi
je     130a <main+0x1ea>
mov    %rbx,%rdi
and    $0xfffffffffffffffe,%rdi
pxor   %xmm1,%xmm1
xor    %ebp,%ebp
pxor   %xmm2,%xmm2
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movdqa 0x10(%rsp,%rbp,4),%xmm3
movdqa 0x20(%rsp,%rbp,4),%xmm4
movdqa 0x30(%rsp,%rbp,4),%xmm5
movdqa 0x40(%rsp,%rbp,4),%xmm6
pcmpgtd %xmm0,%xmm3
psubd  %xmm3,%xmm1
pcmpgtd %xmm0,%xmm4
psubd  %xmm4,%xmm2
pcmpgtd %xmm0,%xmm5
psubd  %xmm5,%xmm1
pcmpgtd %xmm0,%xmm6
psubd  %xmm6,%xmm2
add    $0x10,%rbp
add    $0xfffffffffffffffe,%rdi
jne    1260 <main+0x140>
test   $0x1,%bl
je     12c3 <main+0x1a3>
movdqa 0x10(%rsp,%rbp,4),%xmm3
movdqa 0x20(%rsp,%rbp,4),%xmm4
pcmpgtd %xmm0,%xmm3
psubd  %xmm3,%xmm1
pcmpgtd %xmm0,%xmm4
psubd  %xmm4,%xmm2
paddd  %xmm2,%xmm1
pshufd $0xee,%xmm1,%xmm0
paddd  %xmm1,%xmm0
pshufd $0x55,%xmm0,%xmm1
paddd  %xmm0,%xmm1
movd   %xmm1,%edi
cmp    %rdx,%rsi
je     1182 <main+0x62>
cs nopw 0x0(%rax,%rax,1)
xor    %ebp,%ebp
cmp    %eax,0x10(%rsp,%rsi,4)
setg   %bpl
add    %ebp,%edi
add    $0x1,%rsi
cmp    %rsi,%rdx
jne    12f0 <main+0x1d0>
jmp    1182 <main+0x62>
pxor   %xmm1,%xmm1
xor    %ebp,%ebp
pxor   %xmm2,%xmm2
test   $0x1,%bl
jne    12a7 <main+0x187>
jmp    12c3 <main+0x1a3>

LLVM IR (-O0):
@.str = [3 x i8] c"%i\00"
@.str.1 = [3 x i8] c"%d\00"
@.str.2 = [9 x i8] c"%.3lf%c\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
store i32 0, i32* %1
%9 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %3)
br label %10
10: ; preds = %56, %0
%11 = load i32, i32* %3
%12 = add nsw i32 %11, -1
store i32 %12, i32* %3
%13 = icmp ne i32 %11, 0
br i1 %13, label %14, label %64
14: ; preds = %10
%15 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), i32* %2)
store i32 0, i32* %5
store i32 0, i32* %8
br label %16
16: ; preds = %31, %14
%17 = load i32, i32* %8
%18 = load i32, i32* %2
%19 = icmp slt i32 %17, %18
br i1 %19, label %20, label %34
20: ; preds = %16
%21 = load i32, i32* %8
%22 = sext i32 %21 to i64
%23 = getelementptr inbounds [1000 x i32], [1000 x i32]* %4, i64 0, i64 %22
%24 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %23)
%25 = load i32, i32* %8
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds [1000 x i32], [1000 x i32]* %4, i64 0, i64 %26
%28 = load i32, i32* %27
%29 = load i32, i32* %5
%30 = add nsw i32 %29, %28
store i32 %30, i32* %5
br label %31
31: ; preds = %20
%32 = load i32, i32* %8
%33 = add nsw i32 %32, 1
store i32 %33, i32* %8
br label %16
34: ; preds = %16
%35 = load i32, i32* %5
%36 = load i32, i32* %2
%37 = sdiv i32 %35, %36
store i32 %37, i32* %6
store i32 0, i32* %7
store i32 0, i32* %8
br label %38
38: ; preds = %53, %34
%39 = load i32, i32* %8
%40 = load i32, i32* %2
%41 = icmp slt i32 %39, %40
br i1 %41, label %42, label %56
42: ; preds = %38
%43 = load i32, i32* %8
%44 = sext i32 %43 to i64
%45 = getelementptr inbounds [1000 x i32], [1000 x i32]* %4, i64 0, i64 %44
%46 = load i32, i32* %45
%47 = load i32, i32* %6
%48 = icmp sgt i32 %46, %47
br i1 %48, label %49, label %52
49: ; preds = %42
%50 = load i32, i32* %7
%51 = add nsw i32 %50, 1
store i32 %51, i32* %7
br label %52
52: ; preds = %49, %42
br label %53
53: ; preds = %52
%54 = load i32, i32* %8
%55 = add nsw i32 %54, 1
store i32 %55, i32* %8
br label %38
56: ; preds = %38
%57 = load i32, i32* %7
%58 = sitofp i32 %57 to float
%59 = fmul float %58, 1.000000e+02
%60 = load i32, i32* %2
%61 = sitofp i32 %60 to float
%62 = fdiv float %59, %61
%63 = call i32 @printf(i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.2, i64 0, i64 0), float %62, i32 37)
br label %10
64: ; preds = %10
ret i32 0
}

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