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

integer function pp1 (a,m,n)
dimension a(m,n)
real a,s,sm
integer m,n,jm,i,j
do j=1,n,1
s=0
do i=1,m,1
s=s+a(i,j)
end do
if (j==1) then
sm=s
jm=1
else
if (s>sm) then
sm=s
jm=j
end if
end if
end do
pp1=jm
end

subroutine pp2 (k,a,m,n,b)
dimension a(m,n),b(m,k-1)
real a,b
integer m,n,k,i,j
do j=1,k-1,1
do i=1,m,1
b(i,j)=a(i,j)
end do
end do
end

subroutine pp3 (k,a,m,n,s)
dimension a(m,n), s(m)
real a,s
integer m,n,k,i
do i=1,m,1
s(i)=a(i,k)
end do
end

dimension a(6,3),b(6,3), c(6)
real a,b,c
integer pp1,k,jmax
write (*,*) 'vvedite matricu a(6,3)'
read (*,*) a
write (*,16) ((a(i,j),j=1,3),i=1,6)
16 format ((8x,3(f7.2,1x)))
write (*,*) 'vvedite nomer stolbca'
read (*,*) k
write (*,26) k
26 format (5x,'k=',i1)
jmax=pp1(a,6,3)
if (jmax>k) then
call pp2(jmax,a,6,3,b)
write (*,46) ((b(i,j),j=1,jmax-1),i=1,6)
46 format (f7.2,1x)
else
call pp3(k,a,6,3,c)
write (*,36) (c(i),i=1,6)
36 format (5x,6(f7.2,1x))
end if
end