инфа / yelf& / 24var / 4.3.3_24var

Integer Function PP1(x,n,m)
Dimension x(n,m)
integer n,m,i,j,k,x,smax,s
do j=1,m
s=0
do i=1,n
if (x(i,j)==0) then
s=s+1
end if
end do
if (i==1) then
smax=s
k=1
else
if (s>smax) then
smax=s
k=j
end if
end if
end do
PP1=k
end

subroutine PP2(x,n,m,g)
dimension x(n,m)
integer x,n,m,g,i,j
integer(4) c
j=g
do j=g,m-1
do i=1,n
c=x(i,j)
x(i,j)=x(i,j+1)
x(i,j+1)=c
end do
end do
end

subroutine PP3(x,n,m,a)
dimension x(n,m)
dimension a(n,m-1)
integer a,x,i,j,n,m
do j=1,m-1
do i=1,n
a(i,j)=x(i,j)
end do
end do
end

Dimension b(3,4)
dimension w(3,3)
integer i,j,b,PP1,w,k
write(*,*)'Vvedite matritsu 3*4'
read(*,*) ((b(i,j),j=1,4),i=1,3)
write(*,*)'Isxodnaya matrix'
write(*,15) ((b(i,j),j=1,4),i=1,3)
15 Format ((4(1x,i4)))
k=PP1(b,3,4)
if (k.eq.0) then
write(*,*)'Net nu*noj stroki'
else
call PP2(b,3,4,k)
call PP3(b,3,4,w)
write(*,*)'Itogovaja matrix'
write(*,16) ((w(i,j),j=1,3),i=1,3)
16 Format ((3(1x,i4)))
read(*,*)
end if
read(*,*)
end