Ночной приступ бреда


Text

Program 1
Implicit None
Real A [Allocatable] ( :,: )
Real S [Allocatable] ( : )
Integer mini(1:2), maxi(1:2)
Integer M, N
Integer i, j

Open(1, file="In.txt")
Open(2, file="Out.txt")

Read(1,*) M, N
Allocate(A(1:M, 1:N))
Allocate(S(1:M))

Do i=1,M
Read(1,*) (A(i,j), j=1,N)
end do

Do i=1, M

mini=Minloc(A(i:i, 1:N))
maxi=Maxloc(A(i:i, 1:N))

if(mini(2) F6.2)
Write(2,*) S
Deallocate(A,S)
End


Results

3.00 5.00 -7.00 1.00
2.00 0.00 5.00 -2.00
3.00 1.00 10.00 3.00
-4.00 2.00 8.00 11.00
0.0000000E+00 0.0000000E+00 0.0000000E+00 10.00000