#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 */
scalar_t__ EOF;
int /*<<< orphan*/ printf(char *, int);
scalar_t__ scanf(char *, int *);
int main() {
  int a, b, c, n, i, ar[105], S;
  while (scanf("%d", &n) != EOF) {
    if (n == 0)
      break;
    S = 0;
    for (i = 1; i <= n; i++) {
      scanf("%d", &ar[i]);
      S += ar[i] / 100;
      if (ar[i] % 100 != 0) {
        S += (ar[i] % 100) / 50;
        if (ar[i] % 50 != 0) {
          S += (ar[i] % 50) / 10;
          if (ar[i] % 10 != 0) {
            S += (ar[i] % 10) / 5;
            if (ar[i] % 5 != 0) {
              S += (ar[i] % 5) / 2;
              if (ar[i] % 2 != 0) {
                S += ar[i] % 2;
              }
            }
          }
        }
      }
    }
    printf("%d\n", S);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x1d0,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xec7(%rip),%rdi
lea    -0x14(%rbp),%rsi
call   1040 <scanf@plt>
mov    0x2e9f(%rip),%rcx
cmp    (%rcx),%rax
je     1348 <main+0x228>
cmpl   $0x0,-0x14(%rbp)
jne    1161 <main+0x41>
jmp    1348 <main+0x228>
movl   $0x0,-0x1c4(%rbp)
movl   $0x1,-0x18(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x14(%rbp),%eax
jg     1331 <main+0x211>
movslq -0x18(%rbp),%rax
lea    -0x1c0(%rbp),%rsi
shl    $0x2,%rax
add    %rax,%rsi
lea    0xe69(%rip),%rdi
call   1040 <scanf@plt>
movslq -0x18(%rbp),%rax
mov    -0x1c0(%rbp,%rax,4),%eax
mov    $0x64,%ecx
cltd
idiv   %ecx
add    -0x1c4(%rbp),%eax
mov    %eax,-0x1c4(%rbp)
movslq -0x18(%rbp),%rax
mov    -0x1c0(%rbp,%rax,4),%eax
mov    $0x64,%ecx
cltd
idiv   %ecx
cmp    $0x0,%edx
je     131e <main+0x1fe>
movslq -0x18(%rbp),%rax
mov    -0x1c0(%rbp,%rax,4),%eax
mov    $0x64,%ecx
cltd
idiv   %ecx
mov    %edx,%eax
mov    $0x32,%ecx
cltd
idiv   %ecx
add    -0x1c4(%rbp),%eax
mov    %eax,-0x1c4(%rbp)
movslq -0x18(%rbp),%rax
mov    -0x1c0(%rbp,%rax,4),%eax
mov    $0x32,%ecx
cltd
idiv   %ecx
cmp    $0x0,%edx
je     1319 <main+0x1f9>
movslq -0x18(%rbp),%rax
mov    -0x1c0(%rbp,%rax,4),%eax
mov    $0x32,%ecx
cltd
idiv   %ecx
mov    %edx,%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
add    -0x1c4(%rbp),%eax
mov    %eax,-0x1c4(%rbp)
movslq -0x18(%rbp),%rax
mov    -0x1c0(%rbp,%rax,4),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
cmp    $0x0,%edx
je     1314 <main+0x1f4>
movslq -0x18(%rbp),%rax
mov    -0x1c0(%rbp,%rax,4),%eax
mov    $0xa,%ecx
cltd
idiv   %ecx
mov    %edx,%eax
mov    $0x5,%ecx
cltd
idiv   %ecx
add    -0x1c4(%rbp),%eax
mov    %eax,-0x1c4(%rbp)
movslq -0x18(%rbp),%rax
mov    -0x1c0(%rbp,%rax,4),%eax
mov    $0x5,%ecx
cltd
idiv   %ecx
cmp    $0x0,%edx
je     130f <main+0x1ef>
movslq -0x18(%rbp),%rax
mov    -0x1c0(%rbp,%rax,4),%eax
mov    $0x5,%ecx
cltd
idiv   %ecx
mov    %edx,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
add    -0x1c4(%rbp),%eax
mov    %eax,-0x1c4(%rbp)
movslq -0x18(%rbp),%rax
mov    -0x1c0(%rbp,%rax,4),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
cmp    $0x0,%edx
je     130a <main+0x1ea>
movslq -0x18(%rbp),%rax
mov    -0x1c0(%rbp,%rax,4),%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
add    -0x1c4(%rbp),%edx
mov    %edx,-0x1c4(%rbp)
jmp    130f <main+0x1ef>
jmp    1314 <main+0x1f4>
jmp    1319 <main+0x1f9>
jmp    131e <main+0x1fe>
jmp    1323 <main+0x203>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1172 <main+0x52>
mov    -0x1c4(%rbp),%esi
lea    0xcc5(%rip),%rdi
call   1030 <printf@plt>
jmp    1132 <main+0x12>
xor    %eax,%eax
add    $0x1d0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x1b8,%rsp
lea    0xec8(%rip),%rdi
lea    0xc(%rsp),%rsi
call   1040 <scanf@plt>
mov    0x2e9f(%rip),%r12
cmp    (%r12),%rax
je     12df <main+0x1bf>
mov    0xc(%rsp),%eax
test   %eax,%eax
je     12df <main+0x1bf>
lea    0x14(%rsp),%r13
lea    0xe95(%rip),%rbx
nopl   0x0(%rax,%rax,1)
test   %eax,%eax
jle    12b0 <main+0x190>
xor    %r14d,%r14d
xor    %r15d,%r15d
xor    %ebp,%ebp
jmp    11a6 <main+0x86>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movslq 0xc(%rsp),%rax
add    $0x1,%r15
add    $0x4,%r14
cmp    %rax,%r15
jge    12b2 <main+0x192>
lea    (%r14,%r13,1),%rsi
mov    %rbx,%rdi
call   1040 <scanf@plt>
movslq 0x14(%rsp,%r15,4),%rax
imul   $0x51eb851f,%rax,%rcx
mov    %rcx,%rdx
shr    $0x3f,%rdx
sar    $0x25,%rcx
add    %edx,%ecx
add    %ecx,%ebp
imul   $0x64,%ecx,%edx
mov    %eax,%ecx
sub    %edx,%ecx
je     1190 <main+0x70>
movsbl %cl,%ecx
lea    (%rcx,%rcx,4),%edx
lea    (%rcx,%rdx,8),%ecx
movzwl %cx,%ecx
movswl %cx,%edx
shr    $0xf,%ecx
shr    $0xb,%edx
add    %cl,%dl
movsbl %dl,%ecx
add    %ecx,%ebp
movslq %eax,%rcx
imul   $0x51eb851f,%rcx,%rdx
mov    %rdx,%rsi
shr    $0x3f,%rsi
sar    $0x24,%rdx
add    %esi,%edx
imul   $0x32,%edx,%esi
mov    %eax,%edx
sub    %esi,%edx
je     1190 <main+0x70>
movsbl %dl,%edx
imul   $0x67,%edx,%edx
movzwl %dx,%edx
movswl %dx,%esi
shr    $0xf,%edx
shr    $0xa,%esi
add    %dl,%sil
movsbl %sil,%edx
add    %edx,%ebp
imul   $0x66666667,%rcx,%rcx
mov    %rcx,%rdx
shr    $0x3f,%rdx
mov    %rcx,%rsi
sar    $0x22,%rsi
add    %edx,%esi
add    %esi,%esi
lea    (%rsi,%rsi,4),%edi
mov    %eax,%esi
sub    %edi,%esi
je     1190 <main+0x70>
movsbl %sil,%esi
imul   $0x67,%esi,%esi
movzwl %si,%esi
movswl %si,%edi
shr    $0xf,%esi
shr    $0x9,%edi
add    %sil,%dil
movsbl %dil,%esi
add    %esi,%ebp
sar    $0x21,%rcx
add    %edx,%ecx
lea    (%rcx,%rcx,4),%edx
mov    %eax,%ecx
sub    %edx,%ecx
je     1190 <main+0x70>
mov    %ecx,%edx
shr    $0x7,%dl
add    %cl,%dl
sar    %dl
movsbl %dl,%ecx
mov    %eax,%edx
shr    $0x1f,%edx
add    %eax,%edx
and    $0xfffffffe,%edx
sub    %edx,%eax
add    %ecx,%eax
add    %ebp,%eax
mov    %eax,%ebp
jmp    1190 <main+0x70>
nopl   0x0(%rax)
xor    %ebp,%ebp
lea    0xd4a(%rip),%rdi
mov    %ebp,%esi
call   1030 <printf@plt>
mov    %rbx,%rdi
lea    0xc(%rsp),%rsi
call   1040 <scanf@plt>
cmp    (%r12),%rax
je     12df <main+0x1bf>
mov    0xc(%rsp),%eax
test   %eax,%eax
jne    1170 <main+0x50>
xor    %eax,%eax
add    $0x1b8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [3 x i8] c"%d\00"
@EOF = global i64 0
@.str.1 = [4 x i8] c"%d\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca i32
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
%7 = alloca [105 x i32]
%8 = alloca i32
store i32 0, i32* %1
br label %9
9: ; preds = %116, %0
%10 = call i64 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %5)
%11 = load i64, i64* @EOF
%12 = icmp ne i64 %10, %11
br i1 %12, label %13, label %119
13: ; preds = %9
%14 = load i32, i32* %5
%15 = icmp eq i32 %14, 0
br i1 %15, label %16, label %17
16: ; preds = %13
br label %119
17: ; preds = %13
store i32 0, i32* %8
store i32 1, i32* %6
br label %18
18: ; preds = %113, %17
%19 = load i32, i32* %6
%20 = load i32, i32* %5
%21 = icmp sle i32 %19, %20
br i1 %21, label %22, label %116
22: ; preds = %18
%23 = load i32, i32* %6
%24 = sext i32 %23 to i64
%25 = getelementptr inbounds [105 x i32], [105 x i32]* %7, i64 0, i64 %24
%26 = call i64 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %25)
%27 = load i32, i32* %6
%28 = sext i32 %27 to i64
%29 = getelementptr inbounds [105 x i32], [105 x i32]* %7, i64 0, i64 %28
%30 = load i32, i32* %29
%31 = sdiv i32 %30, 100
%32 = load i32, i32* %8
%33 = add nsw i32 %32, %31
store i32 %33, i32* %8
%34 = load i32, i32* %6
%35 = sext i32 %34 to i64
%36 = getelementptr inbounds [105 x i32], [105 x i32]* %7, i64 0, i64 %35
%37 = load i32, i32* %36
%38 = srem i32 %37, 100
%39 = icmp ne i32 %38, 0
br i1 %39, label %40, label %112
40: ; preds = %22
%41 = load i32, i32* %6
%42 = sext i32 %41 to i64
%43 = getelementptr inbounds [105 x i32], [105 x i32]* %7, i64 0, i64 %42
%44 = load i32, i32* %43
%45 = srem i32 %44, 100
%46 = sdiv i32 %45, 50
%47 = load i32, i32* %8
%48 = add nsw i32 %47, %46
store i32 %48, i32* %8
%49 = load i32, i32* %6
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds [105 x i32], [105 x i32]* %7, i64 0, i64 %50
%52 = load i32, i32* %51
%53 = srem i32 %52, 50
%54 = icmp ne i32 %53, 0
br i1 %54, label %55, label %111
55: ; preds = %40
%56 = load i32, i32* %6
%57 = sext i32 %56 to i64
%58 = getelementptr inbounds [105 x i32], [105 x i32]* %7, i64 0, i64 %57
%59 = load i32, i32* %58
%60 = srem i32 %59, 50
%61 = sdiv i32 %60, 10
%62 = load i32, i32* %8
%63 = add nsw i32 %62, %61
store i32 %63, i32* %8
%64 = load i32, i32* %6
%65 = sext i32 %64 to i64
%66 = getelementptr inbounds [105 x i32], [105 x i32]* %7, i64 0, i64 %65
%67 = load i32, i32* %66
%68 = srem i32 %67, 10
%69 = icmp ne i32 %68, 0
br i1 %69, label %70, label %110
70: ; preds = %55
%71 = load i32, i32* %6
%72 = sext i32 %71 to i64
%73 = getelementptr inbounds [105 x i32], [105 x i32]* %7, i64 0, i64 %72
%74 = load i32, i32* %73
%75 = srem i32 %74, 10
%76 = sdiv i32 %75, 5
%77 = load i32, i32* %8
%78 = add nsw i32 %77, %76
store i32 %78, i32* %8
%79 = load i32, i32* %6
%80 = sext i32 %79 to i64
%81 = getelementptr inbounds [105 x i32], [105 x i32]* %7, i64 0, i64 %80
%82 = load i32, i32* %81
%83 = srem i32 %82, 5
%84 = icmp ne i32 %83, 0
br i1 %84, label %85, label %109
85: ; preds = %70
%86 = load i32, i32* %6
%87 = sext i32 %86 to i64
%88 = getelementptr inbounds [105 x i32], [105 x i32]* %7, i64 0, i64 %87
%89 = load i32, i32* %88
%90 = srem i32 %89, 5
%91 = sdiv i32 %90, 2
%92 = load i32, i32* %8
%93 = add nsw i32 %92, %91
store i32 %93, i32* %8
%94 = load i32, i32* %6
%95 = sext i32 %94 to i64
%96 = getelementptr inbounds [105 x i32], [105 x i32]* %7, i64 0, i64 %95
%97 = load i32, i32* %96
%98 = srem i32 %97, 2
%99 = icmp ne i32 %98, 0
br i1 %99, label %100, label %108
100: ; preds = %85
%101 = load i32, i32* %6
%102 = sext i32 %101 to i64
%103 = getelementptr inbounds [105 x i32], [105 x i32]* %7, i64 0, i64 %102
%104 = load i32, i32* %103
%105 = srem i32 %104, 2
%106 = load i32, i32* %8
%107 = add nsw i32 %106, %105
store i32 %107, i32* %8
br label %108
108: ; preds = %100, %85
br label %109
109: ; preds = %108, %70
br label %110
110: ; preds = %109, %55
br label %111
111: ; preds = %110, %40
br label %112
112: ; preds = %111, %22
br label %113
113: ; preds = %112
%114 = load i32, i32* %6
%115 = add nsw i32 %114, 1
store i32 %115, i32* %6
br label %18
116: ; preds = %18
%117 = load i32, i32* %8
%118 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i32 %117)
br label %9
119: ; preds = %16, %9
ret i32 0
}

LLVM IR (-O2):
@.str = [3 x i8] c"%d\00"
@EOF = global i64 0
@.str.1 = [4 x i8] c"%d\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca [105 x i32]
%3 = bitcast i32* %1 to i8*
%4 = bitcast [105 x i32]* %2 to i8*
%5 = call i64 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %1)
%6 = load i64, i64* @EOF
%7 = icmp eq i64 %5, %6
%8 = load i32, i32* %1
%9 = icmp eq i32 %8, 0
%10 = select i1 %7, i1 true, i1 %9
br i1 %10, label %67, label %11
11: ; preds = %0, %58
%12 = phi i32 [ %64, %58 ], [ %8, %0 ]
%13 = icmp slt i32 %12, 1
br i1 %13, label %58, label %14
14: ; preds = %11, %52
%15 = phi i64 [ %54, %52 ], [ 1, %11 ]
%16 = phi i32 [ %53, %52 ], [ 0, %11 ]
%17 = getelementptr inbounds [105 x i32], [105 x i32]* %2, i64 0, i64 %15
%18 = call i64 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %17)
%19 = load i32, i32* %17
%20 = sdiv i32 %19, 100
%21 = add nsw i32 %20, %16
%22 = srem i32 %19, 100
%23 = icmp eq i32 %22, 0
br i1 %23, label %52, label %24
24: ; preds = %14
%25 = trunc i32 %22 to i8
%26 = sdiv i8 %25, 50
%27 = sext i8 %26 to i32
%28 = add nsw i32 %21, %27
%29 = srem i32 %19, 50
%30 = icmp eq i32 %29, 0
br i1 %30, label %52, label %31
31: ; preds = %24
%32 = trunc i32 %29 to i8
%33 = sdiv i8 %32, 10
%34 = sext i8 %33 to i32
%35 = add nsw i32 %28, %34
%36 = srem i32 %19, 10
%37 = icmp eq i32 %36, 0
br i1 %37, label %52, label %38
38: ; preds = %31
%39 = trunc i32 %36 to i8
%40 = sdiv i8 %39, 5
%41 = sext i8 %40 to i32
%42 = add nsw i32 %35, %41
%43 = srem i32 %19, 5
%44 = icmp eq i32 %43, 0
br i1 %44, label %52, label %45
45: ; preds = %38
%46 = trunc i32 %43 to i8
%47 = sdiv i8 %46, 2
%48 = sext i8 %47 to i32
%49 = srem i32 %19, 2
%50 = add nsw i32 %49, %48
%51 = add i32 %50, %42
br label %52
52: ; preds = %45, %14, %31, %38, %24
%53 = phi i32 [ %42, %38 ], [ %35, %31 ], [ %28, %24 ], [ %21, %14 ], [ %51, %45 ]
%54 = add nuw nsw i64 %15, 1
%55 = load i32, i32* %1
%56 = sext i32 %55 to i64
%57 = icmp slt i64 %15, %56
br i1 %57, label %14, label %58
58: ; preds = %52, %11
%59 = phi i32 [ 0, %11 ], [ %53, %52 ]
%60 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i32 %59)
%61 = call i64 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %1)
%62 = load i64, i64* @EOF
%63 = icmp eq i64 %61, %62
%64 = load i32, i32* %1
%65 = icmp eq i32 %64, 0
%66 = select i1 %63, i1 true, i1 %65
br i1 %66, label %67, label %11
67: ; preds = %58, %0
ret i32 0
}