1014:当总统 分数: 1

题目描述

小明想当丑国的总统，丑国大选是按各州的投票结果来确定最终的结果的，如果得到超过一半的州的支持就可以当选，而每个州的投票结果又是由该州选民投票产生的，如果某个州超过一半的选民支持小明，则他将赢得该州的支持。现在给出每个州的选民人数，请问小明至少需要赢得多少选民的支持才能当选？
输入格式

输入包含多组测试数据。
每组数据的第一行是一个整数N（1<=N<=101）,表示丑国的州数，当N=0时表示输入结束。
接下来一行包括N个正整数，分别表示每个州的选民数，每个州的选民数不超过100。

输出

对于每组数据输出一行，表示小明至少需要赢得支持的选民数。
样例输入

3
5 7 5
0
样例输出

6
program p1014;
var a:array[1..101]of integer;i,j,k,n,s:integer;
begin
while not eof do
begin
readln(n);
if n<>0 then
begin
s:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
k:=a[i];a[i]:=a[j];a[j]:=k;
end;
s:=0;
for i:=1 to (n div 2+1) do
s:=s+(a[i] div 2)+1;
writeln(s);
end;
end;
end.