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

dimension a(5,5),c(5),x(5)
real a,c,x,p,t,s
integer i,j,fl

write(*,*) 'Vvedite matrix a(5,5)'
read(*,*) ((a(i,j),j=1,5),i=1,5)
write(*,*)
write(*,*) 'Isxodnaia matrix:'
write(*,17) ((a(i,j),j=1,5),i=1,5)
17 format ((6x,5(f5.1,x)))
write(*,*)
write(*,*) 'Vvedite vektor c(5)'
read(*,*)(c(i),i=1,5)
write(*,*)
write(*,*) 'Vektor:'
write(*,18) (c(i),i=1,5)
18 format ((6x,5(f5.1,x)))
write(*,*)

write(*,*) 'Vvedite left(P) and right(T) granici P i T, P<T'
read(*,*) p
read(*,*) t
write(*,*)

fl=0
i=1
do while ((i<=5).and.(fl.eq.0))
fl=1
if ((c(i)>p).and.(c(i)<t)) then
fl=0
end if
i=i+1
end do
if (fl.eq.0) then
do i=1,5
s=0
do j=1,5
s=s+a(i,j)
end do
x(i)=s
end do
write(*,*) 'Matrix-symma:'
write(*,19) (x(i),i=1,5)
19 format ((6x,5(f5.1,x)))
else
write (*,*) 'Zria staralsia'
end if
read(*,*)
end