program main
implicit none
integer,dimension(11)::p
integer::h,hp,n,i,x,total

read(*,*) n

do i=1,n
read(*,*) p(i)
end do
if (n<10) then
do i=n+1,11
p(i)=0
end do
end if
hp=p(1)
x=1
do i=1,n
if (hp<p(i)) then
hp=p(i)
x=i
end if
end do

total=0

do i=1,n
total=total+p(i)
end do

total= total-p(x)+0.5*p(x)

write(*,*) total

end program main


