编辑代码

program main
    integer, dimension(100) :: in  
    integer, dimension(100) :: out 
    integer :: total_in, total_out, balance
    print *, "请输入储款数："   ! 读入储款数
    do i = 1, 100  
        read *, in(i)  
    end do
    total_in = 0  ! 统计存款总数 
    do i = 1, 100  
        total_in = total_in + in(i)  
    end do
    deallocate(in)
    print *, "请输入取款数："  ! 读入取款数 
    do i = 1, 100  
        read *, out(i)  
    end do
    total_out = 0  ! 统计取款总数  
    do i = 1, 100  
        total_out = total_out + out(i)  
    end do
    balance = total_deposit - total_withdrawal  ! 求余额
    print *,  balance
	
end