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

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

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

  write(*,*)price
  
end program jihanki
