مرکز انجمنهای تخصصی

دوستان من این برنامه رو برای تبدیل اعداد در مبنای 8 به مبنای 10 در زبان فرترن نوشتم ولی یه مشکل دارم اونم اینه که نمیدونم چطوری به وسیله برنامه تعداد ارقام عددهای ورودی توسط کاربر رو قبل و بعد از ممیز بشمارم البته عدد دلخواه خواهد بود که من محدود به 1000 رقم کردم .(واسه همین باید تعدادتوسط کاربر بوسیله پارامترهای e,f وارد بشه که خوشایند نیست!)

real::a(1000)
c=0
d=0
read(*,*) e,f
if (e+f<=1000) then
read(*,*) (a(i),i=1,e+f)
if (e>0)then
do i=e,1,-1
c=8**(e-i)*a(i)+c
enddo
endif
if (f>0) then
do i=e+1,e+f
d=a(i)*8**(e-i)+d
enddo
endif
endif
s=c+d
write(*,*) 'number=',s
end

یکی نیست کمک کنه؟