Datoteka:
 



program srednja vrednost 10 stevil
real a(100),pov,vs
integer i
print*,'vnesi 10 stevil'
vs=0
do i=1,10
   read*,a(i)
   vs=vs+a(i)
enddo
pov=vs/10
print*,'povprecje=',pov
end




Avtor: Danilo Klasinc


V kolikor želite sodelovati z nami, vas vljudno vabimo, da se nam pridružite, pošljete članke, ali pa samo izrazite vaša mnenja.