#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);
int /*<<< orphan*/ scanf(char *, int *);
int main() {
  int n;
  scanf("%d", &n);
  int a[n];
  int k;
  int one = 0, zero = 0;
  for (k = 0; k < n; k++) {
    scanf("%d", &a[k]);
    if (a[k] == 0)
      zero++;
    else
      one++;
  }
  int count = 0;
  int wc = 0;
  for (k = 0; k < n; k++) {
    if (a[k] == 0) {
      wc++;
    }
    if (a[k] == 0 && a[k + 1] == 0)
      count++;
  }
  if (count == 0 && wc != 0) {
    one++;
  } else if (wc == 0 && count == 0 && one == 1) {
    one = 0;
  } else if (wc == 0 && count == 0) {
    one--;
  } else
    one = one + count + 1;
  printf("%d\n", one);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xeca(%rip),%rdi
lea    -0x8(%rbp),%rsi
call   1040 <scanf@plt>
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,-0x38(%rbp)
mov    %rcx,%rsp
mov    %rax,-0x18(%rbp)
movl   $0x0,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    11de <main+0xbe>
mov    -0x38(%rbp),%rsi
movslq -0x1c(%rbp),%rax
shl    $0x2,%rax
add    %rax,%rsi
lea    0xe63(%rip),%rdi
call   1040 <scanf@plt>
mov    -0x38(%rbp),%rax
movslq -0x1c(%rbp),%rcx
cmpl   $0x0,(%rax,%rcx,4)
jne    11c2 <main+0xa2>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    11cb <main+0xab>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    11d0 <main+0xb0>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    117b <main+0x5b>
movl   $0x0,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    125f <main+0x13f>
mov    -0x38(%rbp),%rax
movslq -0x1c(%rbp),%rcx
cmpl   $0x0,(%rax,%rcx,4)
jne    121a <main+0xfa>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x38(%rbp),%rax
movslq -0x1c(%rbp),%rcx
cmpl   $0x0,(%rax,%rcx,4)
jne    124c <main+0x12c>
mov    -0x38(%rbp),%rax
mov    -0x1c(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
cmpl   $0x0,(%rax,%rcx,4)
jne    124c <main+0x12c>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1251 <main+0x131>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    11f3 <main+0xd3>
cmpl   $0x0,-0x28(%rbp)
jne    1281 <main+0x161>
cmpl   $0x0,-0x2c(%rbp)
je     1281 <main+0x161>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    12e3 <main+0x1c3>
cmpl   $0x0,-0x2c(%rbp)
jne    12ab <main+0x18b>
cmpl   $0x0,-0x28(%rbp)
jne    12ab <main+0x18b>
cmpl   $0x1,-0x20(%rbp)
jne    12ab <main+0x18b>
movl   $0x0,-0x20(%rbp)
jmp    12de <main+0x1be>
cmpl   $0x0,-0x2c(%rbp)
jne    12cd <main+0x1ad>
cmpl   $0x0,-0x28(%rbp)
jne    12cd <main+0x1ad>
mov    -0x20(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x20(%rbp)
jmp    12d9 <main+0x1b9>
mov    -0x20(%rbp),%eax
add    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    12de <main+0x1be>
jmp    12e3 <main+0x1c3>
mov    -0x20(%rbp),%esi
lea    0xd16(%rip),%rdi
call   1030 <printf@plt>
movl   $0x0,-0x4(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rsp
mov    -0x4(%rbp),%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
lea    0xec8(%rip),%rdi
lea    -0x2c(%rbp),%rsi
call   1040 <scanf@plt>
mov    %rsp,%rbx
mov    -0x2c(%rbp),%eax
mov    %rsp,%r13
lea    0xf(,%rax,4),%rax
and    $0xfffffffffffffff0,%rax
sub    %rax,%r13
mov    %r13,%rsp
cmpl   $0x0,-0x2c(%rbp)
jle    11f7 <main+0xd7>
mov    %rbx,-0x38(%rbp)
xor    %r15d,%r15d
lea    0xe8c(%rip),%r14
mov    %r13,%rbx
xor    %r12d,%r12d
nopw   0x0(%rax,%rax,1)
mov    %r14,%rdi
mov    %rbx,%rsi
call   1040 <scanf@plt>
cmpl   $0x1,(%rbx)
sbb    $0xffffffff,%r12d
add    $0x1,%r15
movslq -0x2c(%rbp),%rax
add    $0x4,%rbx
cmp    %rax,%r15
jl     1180 <main+0x60>
mov    %eax,%r8d
xor    %esi,%esi
test   %r8d,%r8d
jle    11fc <main+0xdc>
cmp    $0x1,%r8d
jne    1247 <main+0x127>
xor    %r11d,%r11d
xor    %ecx,%ecx
xor    %r9d,%r9d
test   $0x1,%r8b
mov    -0x38(%rbp),%rbx
je     11e5 <main+0xc5>
mov    0x0(%r13,%r11,4),%eax
xor    %edx,%edx
test   %eax,%eax
sete   %dl
add    %edx,%ecx
test   %eax,%eax
jne    11e5 <main+0xc5>
cmpl   $0x1,0x4(%r13,%r11,4)
adc    $0x0,%r9d
test   %r9d,%r9d
sete   %dl
jne    1207 <main+0xe7>
test   %ecx,%ecx
je     1207 <main+0xe7>
add    $0x1,%r12d
jmp    1224 <main+0x104>
xor    %r12d,%r12d
jmp    1220 <main+0x100>
mov    $0x1,%dl
xor    %ecx,%ecx
xor    %r9d,%r9d
mov    -0x38(%rbp),%rbx
test   %ecx,%ecx
sete   %al
and    %dl,%al
cmp    $0x1,%al
jne    1218 <main+0xf8>
cmp    $0x1,%r12d
je     1227 <main+0x107>
test   %al,%al
je     12ac <main+0x18c>
add    $0xffffffff,%r12d
mov    %r12d,%esi
lea    0xdd5(%rip),%rdi
call   1030 <printf@plt>
mov    %rbx,%rsp
xor    %eax,%eax
lea    -0x28(%rbp),%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
mov    %r8d,%r10d
and    $0xfffffffe,%r10d
xor    %ebx,%ebx
xor    %ecx,%ecx
xor    %r9d,%r9d
jmp    1270 <main+0x150>
nopw   0x0(%rax,%rax,1)
mov    %dl,%al
add    %eax,%ecx
mov    %r11,%rbx
cmp    %r11,%r10
je     11bf <main+0x9f>
mov    0x0(%r13,%rbx,4),%edx
xor    %eax,%eax
test   %edx,%edx
sete   %dl
jne    1288 <main+0x168>
cmpl   $0x1,0x4(%r13,%rbx,4)
adc    $0x0,%r9d
mov    %dl,%al
add    %eax,%ecx
mov    0x4(%r13,%rbx,4),%edi
xor    %eax,%eax
test   %edi,%edi
sete   %dl
lea    0x2(%rbx),%r11
test   %edi,%edi
jne    1260 <main+0x140>
cmpl   $0x1,0x8(%r13,%rbx,4)
adc    $0x0,%r9d
jmp    1260 <main+0x140>
lea    (%r12,%r9,1),%esi
add    $0x1,%esi
jmp    1227 <main+0x107>

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

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