program main implicit none integer*8::N,i,dot,len,borrow,carry integer*8::big,small,big_t,small_t integer*8,parameter::keta=10000000000_8 character*22::input data big_t,small_t/2*0/ read *,N do i=1,N read *,input len = LEN_TRIM(input) dot = SCAN(input,'.') if(dot.ne.0) then read (input(1:dot-1),*) big read (input(dot+1:len),*) small small = 10**(10-len+dot)*small else read (input(1:len),*) big small = 0 end if if(input(1:1).eq.'-') then big_t = big_t + big small_t = small_t - small else big_t = big_t + big small_t = small_t + small end if end do ! print *,big_t,small_t if(big_t.eq.0) then carry = small_t/keta big_t = big_t + carry if(big_t.eq.0.and.small_t.lt.0) then write(*,'(a)',advance='no'),"-" end if small_t = ABS(MOD(small_t,keta)) else if((small_t.ge.0.and.big_t.ge.0).or. & (small_t.le.0.and.big_t.le.0)) then carry = small_t/keta big_t = big_t + carry small_t = ABS(MOD(small_t,keta)) else if(big_t.le.0) then big_t = -big_t small_t = -small_t borrow = small_t/keta + 1 big_t = big_t - borrow small_t = borrow*keta + small_t big_t = -big_t else borrow = ABS(small_t/keta) + 1 big_t = big_t - borrow small_t = borrow*keta + small_t end if end if ! print *,big_t,small_t print '(i0,".",i10.10)',big_t,small_t end program main