инфа / yelf& / 19var / 2.5.2_19var

dimension a(5,5), x(5)
real a,sr,x
integer i,j,n

write(*,*) 'Vvedite N'
read(*,*) n
write(*,*) 'Vvedite matrix A(n,n)'
read(*,*) ((a(i,j),j=1,n),i=1,n)
write(*,*)
write(*,*) 'Isxodnaia matrix:'
write(*,17) ((a(i,j),j=1,n),i=1,n)
17 format ((6x,3(f5.1,x)))
write(*,*)

do j=1,n
sr=0
do i=1,n
sr=sr+a(i,j)
if (a(i,j)>0) then
a(i,j)=1
else
a(i,j)=0
end if
end do
sr=sr/n
x(j)=sr
end do
write(*,*) 'Peredelannaia matrix:'
write (*,18) ((a(i,j),j=1,n),i=1,n)
18 format ((6x,3(f5.1,x)))
write(*,*)
write(*,*) 'Vektor:'
write (*,19) (x(j),j=1,n)
19 format ((6x,3(f5.1,x)))
read(*,*)
end