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

dimension a(5,5)
real a

integer i,j,n
logical fl

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)))
call tf(a,n,fl)
if (fl.eq.true) then
call elem(a,n)
write(*,*)'Itogovaja matrix A'
write(*,2)((a(i,j),j=1,n),i=1,n)
2 format((10x,3(f4.1,2x)))
else
write(*,*)'Uslovie narusheno'
end if
read(*,*)
end


subroutine tf(z,k,f)
real z(5,5)
integer i,k
logical f
f=true
i=1
do while ((i<=(k-1)).and.f)
if (z(i,i)>z(i+1,i+1)) then
f=false
end if
i=i+1
end do
return
end



subroutine elem(z,k)
real z(5,5)
integer i,j,k,f
do i=1,k
f=z(i,i)
do j=1,k
z(i,j)=z(i,j)+f
end do
end do
return
end