инфа / yelf& / 17var / 4.3.3_17var

dimension a(5,5)
real a,max,min
integer i,j,n,q
write(*,*)'Vvedite N'
read(*,*)n
write(*,*)'Vvedite matrix A'
read(*,*)((a(i,j),j=1,n),i=1,n)
write(*,*)'Isxodnaja matrix A'
write(*,1)((a(i,j),j=1,n),i=1,n)
1 format((10x,3(f4.1,2x)))
write(*,*)'Vvedite chislo Q'
read(*,*)q
call F1(a,n,max)
call F2(a,n,min)
write(*,*)' max = ',max,' min = ',min
if ((abs(min-max))<q) then
call F3(a,n)
write(*,*)'Itogovaja matritsa'
write(*,2)((a(i,j),j=1,n),i=1,n)
2 format((10x,3(f4.1,2x)))
else
write(*,*)'Uslovie ne vipolneno'
end if
read(*,*)
end


subroutine F1(z,k,max1)
real z(5,5), max1
integer k,i,j
logical fl
fl=true
i=1
do while ((i<=k).and.(fl.eq.true))
j=1
do while ((j<=k).and.(fl.eq.true))
if (z(i,j)<0) then
fl=false
max1=z(i,j)
end if
j=j+1
end do
i=i+1
end do
do i=1,k
do j=1,k
if ((z(i,j)<0).and.(z(i,j)>max1)) then
max1=z(i,j)
end if
end do
end do
return
end

subroutine F2(z,k,min1)
real z(5,5), min1
integer k,i,j
logical fl
fl=true
i=1
do while ((i<=k).and.(fl.eq.true))
j=1
do while ((j<=k).and.(fl.eq.true))
if (z(i,j)>0) then
fl=false
min1=z(i,j)
end if
j=j+1
end do
i=i+1
end do
do i=1,k
do j=1,k
if ((z(i,j)>0).and.(z(i,j)<min1)) then
min1=z(i,j)
end if
end do
end do
return
end

subroutine F3(z,k)
real z(5,5)
integer i,j,k
do i=1,k
do j=1,k
if (z(i,j)<0) then
z(i,j)=abs(z(i,j))
end if
end do
end do
return
end