10 elemanlý bir sayý dizisindeki negatif sayýlarýn ortalamasýný bulunuz. (burayý boyle mesgul ettýgým icin kusura bakmayin ama bilgelere geri dönemedigim icin yazýyorum. sorum yanlis degil. sanýrým fortranda algoritma sorusu bu.)

bu fortranda yapýlmasý istenilen br programsa öncelik program adý integer real gibi kýsýmlarý tanýmlamalýyýz.18 do i=1,10 deyip bu sayý dizisinin elemanlarýný bizim klavyeden okuttuðumuz var sayýp buna n(i) gibi bir harf atayalým.diyelimki 5 tane negaitf sayý girdik.tabi bunu formatsýz yazdýrdýðýmýzý var sayýyorum. sonra if leri kullanmalýyýz. iþternif (n.le.0) thenrntop=0rntop=top+n(i)rnort=top/5rnelse if(n.ge.0) thenrnwrite(*,*) 'pozitif sayý bu'rn18 continuernwrite(*,*) ortrnendrnkabaca böyl olmasý lazým.