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

dimension x(10)
real sr,x,s
integer k,i,n,z

write(*,*)'Vvedite n'
read(*,*)n
write(*,*)'Vvedite vektor x(n)'
read(*,*)(x(i),i=1,n)
write(*,*)
write(*,17)(x(i),i=1,n)
17 format ((6x,5(f5.1,x)))
write(*,*)
s=0
z=0
k=0
do i=1,n
if (x(i)/=0) then
s=s+x(i)
z=z+1
end if
if (x(i)>=0) then
k=k+1
end if
end do
sr=s/z
write(*,*)'Sr ar = ',sr
write(*,*)'Kol-vo neotric el-tov = ',k
read(*,*)
end