инфа / проги инфа вар 1,2(родионова) / 4.3

Dimension a(3,4)
real a,dsr,sr,srl
integer i,j
logical fl
fl=.true.
data a/1,2,-40,-4,-5,-6,39,12,9,12,10,1/
write(*,*) 'zadanaya matrica:'
write(*,6) ((a(i,j), j=1,4), i=1,3)
6 format (4(2x,f7.1))
call pp1(a,3,4,fl)
if (fl) then
write (*,*) ' v pervoy stroke bolshe vsego otric elementov'
call pp2(a,3,4,dsr,sr,srl)
write (*,*) 'ismen matrica'
write (*,6) ((a(i,j), j=1,4),i=1,3)
write (*,*)'srednee arifm'
write (*,13) srl
13 format (2x, f5.2)
write(*,*)'srednee arifm posle'
write(*,13) sr
write (*,*) 'ismenitsa na:'
write (*,13) dsr
else
write (*,*) 'v pervoi stroke ne bolshe vsego itric elementov'
end if
end


subroutine pp1(a,n,m,fl)
dimension a(n,m)
logical fl
real a,k,s
integer j
k=0
fl=.true.
do j=1,m,1
if (a(1,j)<=0) then
k=k+1
end if
end do
do i=2,n
s=0
do j=1,m
if (a(2,j)<0) then
s=s+1
end if
end do
if (s>=k) then
fl=.false.
end if
end do
end


subroutine pp2(a,n,m,dsr,sr,srl)
dimension a(n,m)
real a,dsr,sr,srl,sum,sum1
integer i,j,n,m
sum1=0
sum=0
do i=1,n
do j=1,m
sum1=sum1+a(i,j)
if (a(i,j)<=0)then
a(i,j)=abs(a(i,j))
end if
sum=sum+a(i,j)
end do
end do
srl=sum1/(n*m)
sr=sum/(n*m)
dsr=sr-srl
end