инфа / yelf& / 19var / 4.2.5_19var

subroutine f1(q1,m,min1)
integer m,i,j
real q1(m,m),min1
min1=q1(1,1)
do i=1,m
do j=1,m
if (q1(i,j).lt.min1) then
min1=q1(i,j)
end if
end do
end do
end


integer i,n,k
real q(3,3),min
write(*,*)'Vvedite n'
read(*,*)n
write(*,*)'Vvedite matrix Q(n,n)'
read(*,*)((q(i,j),j=1,n),i=1,n)
write(*,1)((q(i,j),j=1,n),i=1,n)
1 format ((6x,3(f5.1,2x)))
write(*,*)
call f1(q,n,min)
write(*,*)'Min element matrici raven ',min
if (min/=0) then
do k=1,n
q(k,k)=q(k,k)+abs(min)
end do
write(*,*)
write(*,2)((q(i,j),j=1,n),i=1,n)
2 format ((6x,3(f5.1,2x)))
else
write(*,*)'Element raven nyly'
end if
read(*,*)
end