Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  my work
Language: FORTRAN
Code:
     program hello
     integer a(100), n, i, k, p
        print*,'type n'
        read*,n
        print*,'type mass A'
        read*,(a(i),i=1,n)
        k=0
        do i=1,n
        if (A(i)==A(i+1))then
        k=k+1
        endif
        enddo
        p=(n-k)
        print*,'p=',p
     end program hello          
Comments: