Очень нужно! Плиз! Какое условие задачи можно составить для этой программы?
Program Matrix
integer N,M,imax(2)
Integer, Allocatable :: A(:,: ),B(: )
Open(1,FILE='in.txt')
Open(2,FILE='out.txt')
Read(1,*)N,M
Allocate (A(N,M),B(L))
Read(1,*)(A(i,: ),i=1,N)
K=(A1,1:An,1)
Z=(An,2:AN,M)
V=(An,m-1:A1,M)
T=(A1,M-1;A1,2)
L=K+Z+V+T
do
Bi=ai;1 i=1,N
end do
do
Bj=an,j j=2,M
end do
do
Bi=ai,M i=N-1,1,-1
end do
bj=1,j j=m-1,2,-1
end do
Write(2,*)B
Deallocate(A,B )
End
И для этой. Из имеющейся матрицы выбрать все элементы, которые удовлетворяют условию
((A(I,J)>0) .AND. (A(I,J)<3)) и находятся не ниже главной диагонали ? Так? И как словами написать это "((A(I,J)>0) .AND. (A(I,J)<3))"
program dynmas1
integer A(5,5),S,k
integer,allocatable:: x(: )
A(1,: )=(/1,3,6,2,-2/)
A(2,: )=(/3,2,-1,1,1/)
A(3,: )=(/2,1,2,1,4/)
A(4,: )=(/4,3,-2,-1,5/)
A(5,: )=(/-1,2,4,3,1/)
S=0
DO J=1,5
DO I=1,5-J
IF ((A(I,J)>0) .AND. (A(I,J)<3)) THEN
S=S+1
END IF
END DO
END DO
PRINT*,'S=',S
allocate (x(S))
k=0
DO J=1,5
DO I=1,5-J
IF ((A(I,J)>0) .AND. (A(I,J)<3)) THEN
k=k+1
x(k)=A(I,J)
END IF
END DO
END DO
PRINT*,'x=',x
deallocate(x)
end