记录编号 201291 评测结果 AAAAA
题目名称 电池的寿命 最终得分 100
用户昵称 Gravatarグッド大きな萌菌 是否通过 通过
代码语言 Pascal 运行时间 0.001 s
提交时间 2015-10-30 14:12:23 内存使用 0.17 MiB
显示代码纯文本
program dianchi;
var
	a:array[1..1000]of longint;
	max,i,j,k,n,sum:longint;
	s:real;
begin
	assign(input,'dianchi.in');reset(input);
	assign(output,'dianchi.out');rewrite(output);
	readln(n);
	while not eoln do
	begin
	sum:=0;
	max:=0;
	for i:=1 to n do
	begin
		read(a[i]);
		sum:=sum+a[i];
	end;	
	for i:=1 to n do
		begin
			if a[i]>max then
				max:=a[i];
		end;
		if sum> (2*max) then	
			s:=sum/2
			else 
				s:=sum-max;
		writeln(s:0:1);
		readln(n);
	end;	
	close(input);close(output);
end.