关闭

1014:当总统 分数: 1

107人阅读 评论(0) 收藏 举报
分类:
题目描述

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


输入格式

输入包含多组测试数据。
每组数据的第一行是一个整数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.

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:14953次
    • 积分:107
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档