эта программа в двумерном массиве ищет индексы двух одинаковых элементов,ну и сами элементы,как задать условие,чтобы она считала в каждом нечетном столбце количество элементов,принадлежащих промежутку (pi^e;e^pi]
program zad8
implicit none
integer,parameter :: m=4,n=5
integer A(m,n),i,k
print*, 'BBeDute ElemeNTbl massiva A'
do i=1,m
read(*,*) (a(i,k), k=1,n)
end do
write(*,*) ' Matrix A'
call print_matrix( a, m, n)
call found(a, m, n)
end program
subroutine print_matrix(a,m,n)
integer i,k,m,n,a(m,n)
do i=1,m
do k=1,n
write(*,'(i4,1X,$)') A(i,k)
end do
write(*,'(/)')
end do
return
end subroutine
subroutine found(a, m, n)
integer i,k,l,j,m,n,a(m,n),q
do i=1,m
do j=i,m
do k=1,n
do l=k+1,n
if (A(i,k)==A(j,l)) then
q=A(j,l)
write(*,*) 'index'
write(*,'(2i2)') j,l
write(*,'(2i2)') i,k
end if
end do
end do
end do
end do
write(*,*)'ix znachenya matrix A=', q
return
end
program zad8
implicit none
integer,parameter :: m=4,n=5
integer A(m,n),i,k
print*, 'BBeDute ElemeNTbl massiva A'
do i=1,m
read(*,*) (a(i,k), k=1,n)
end do
write(*,*) ' Matrix A'
call print_matrix( a, m, n)
call found(a, m, n)
end program
subroutine print_matrix(a,m,n)
integer i,k,m,n,a(m,n)
do i=1,m
do k=1,n
write(*,'(i4,1X,$)') A(i,k)
end do
write(*,'(/)')
end do
return
end subroutine
subroutine found(a, m, n)
integer i,k,l,j,m,n,a(m,n),q
do i=1,m
do j=i,m
do k=1,n
do l=k+1,n
if (A(i,k)==A(j,l)) then
q=A(j,l)
write(*,*) 'index'
write(*,'(2i2)') j,l
write(*,'(2i2)') i,k
end if
end do
end do
end do
end do
write(*,*)'ix znachenya matrix A=', q
return
end