инфа / yelf& / 17var / 4.2.3_17var

dimension a(5,5)
real a
integer i,j,n,l,m,kol,c1,c2


write(*,*)'Vvedite N'
read(*,*)n
write(*,*)'Vvedite matrix A'
read(*,*)((a(i,j),j=1,n),i=1,n)
write(*,*)'Isxodnaja matrix A'
write(*,17)((a(i,j),j=1,n),i=1,n)
17 format((10x,3(f4.1,2x)))
write(*,*)'Vvedite l,m'
read(*,*)l
read(*,*)m
c1=kol(a,n,l)
c2=kol(a,n,m)
write(*,*)'Kolichestvo elementov > 0 v stroke L = ',c1
write(*,*)'Kolichestvo elementov > 0 v stroke M = ',c2
read(*,*)
end

integer function kol(z,k,x)
real z(5,5)
integer x,k,j
kol=0
do j=1,k
if (z(x,j)>0) then
kol=kol+1
end if
end do
return
end