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

dimension x(20), a(10,10)
real x,a,s,p
integer n,i,j

write(*,*)'Vvedite N'
read(*,*)n
write(*,*)'Vvedite massiv A'
read(*,*)((a(i,j),j=1,n),i=1,n)
write(*,*)'Isxodnaja matritsa'
write(*,17)((a(i,j),j=1,n),i=1,n)
17 format((10x,3(f3.1,2x)))
sr=0
p=1

do i=1,n,1

do j=1,n
s=s+a(i,j)
p=p*a(i,j)
end do

if (s>p) then
x(i)=1
else
x(i)=0
end if

end do
write(*,*)'Poluchennaja matritsa x'
write(*,18)(x(i),i=1,n)
18 format((10x,(f3.1,2x)))
read(*,*)
end