# [R], <s>46</s> 45 bytes

<!-- language-all: lang-r -->

 sum((v=scan())[l<-1:(sum(v|1)/2)]);sum(v[-l])

[Try it online!][TIO-kaebchdu]

*Edit: thanks to Giuseppe: -1 byte*

[R]: https://www.r-project.org/
[TIO-kaebchdu]: https://tio.run/##K/r/v7g0V0OjzLY4OTFPQ1MzOsdG19BKAyRYVmOoqW@kGatpDeZF6@bEav434zLnMuUy5DLmsgSyDLnMuLj@AwA "R – Try It Online"