инфа / yelf& / 5var / 2.5.3_5var

program rasstoyanie
dimension p(2,10)
real p, r
integer i, j
write (*,*) 'vvedite matricu p'
read (*,*) p
write (*,16)
16 format (16x, 'ishodnaya matrica')
write (*,26) ((p(i,j),j=1,10),i=1,2)
26 format ((5x,10(f5.1,1x)))
write (*,*) 'vvedite r'
read (*,*) r
write (*,36) r
36 format (5x,'rasstoyanie -',1x,f4.1)
j=1
do while (j<10.and.r**2<=((p(1,j+1)-p(1,j))**2+(p(2,j+1)-p(2,j))**2))
j=j+1
end do
if (j<10) then
do j=1,10,1
if (p(1,j)<0) then
p(1,j)=0
p(2,j)=p(2,j)+r
end if
end do
write (*,46)
46 format (16x,'izmenennaya matrica p')
write (*,26) ((p(i,j),j=1,10),i=1,2)
else
write (*,56)
56 format (16x, 'matrica ne menyaetsya')
end if
end