program main
implicit None
integer::n,i,t,s
integer,allocatable::a(:)
	read *,n
	allocate(a(n))
	t = 0
	s = 0
	
	do i = 1,n
		read *,a(i)
		if(a(i) > t)then
			t = a(i)
		endif
		s = s + a(i)
	enddo
	
	s = s - (t/2)
	
	print 101,s

101 format(i0)
end program main