program jihanki
  implicit none
  integer :: n, i, k
  integer, allocatable :: p(:)
  integer :: price

  read(*,*)n
  allocate(p(n))
  do i=1,n
     read(*,*)p(i)
  end do

  do i=1, n
     if (k==0) then
        if (p(i)==maxval(p)) then
           price=price+p(i)/2.0
           k=1
        else
           price=price+p(i)
        end if
     else
        price=price+p(i)
     end if
  end do

  write(*,*)price
  
end program jihanki
