Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  25
Language: FORTRAN
Code:
     dimension a(8),b(8)
real a,b
integer i,e,f
write(*,*) 'vvedite vektor a'
read (*,1) (a(i),i=1,8),(b(i),i=1,2)
1 format ((1x,8(f10.3,1x))
write (*,*) 'vvedite massiv b'
read(*,2) (b(i),i=1,6)
2 format ((1x,6(f10.3,1x)))
write(*,4)
4 format (8x,'vector a',20x,'vector b',20x,'vector c')
e=0
f=0
do i=1,8,1
if a(i)>=b(i) then
c(i)=b(i) 
e=e+1
else
c(I)=a(i)
f=f+1
endif
write(*,3) i,a(i),i,b(i),i,c(i)
3 format (7x,'a(',i1,')'f4.3,7x,'b(',i1,')'f4.3,7x,'c(',i1,')'f4.3) 
enddo
write(*,5) f,e
5 format (1x,'B vectore     c',i1,1x,elementov is A u',1x,i1,1x,'elementov is b')
end
Comments: