program christmas_eve_eve
  implicit none
  integer :: n, p, sum, max, i
  read(*,*) n
  sum = 0
  max = 0
  do i = 1, n
     read(*,*) p
     sum = sum + p
     if (p .gt. max) max = p
  end do
  sum = sum - max/2
  write(*,'(i0)') sum
  stop
end program christmas_eve_eve