modify the program so that it reports how many positive numbers were entered, an

Question

modify the program so that it reports how many positive numbers were entered, and how many negative numbers were entered. It should run like this:
Please enter some numbers (0 to terminate)
3
27
-16
4
6
-1
0
4 positive numbers were entered
2 negative numbers were entered

Explanation / Answer

program num_deviation implicit none integer:: serial,number,k,count_negative,count_positive write(*,*)'type no. integer' read(*,*)k do serial=1,k write(*,*)'type integer' read(*,*) number write(*,*)'number',numer if(number>=0)cycle count_negative=count_negative +1 write(*,*)'serial=',serial,' ',number enddo write(*,*)'number of negative integers=', count_neagative do serial=1,k write(*,*)'type integer' read(*,*) number write(*,*)'number',numer if(number

Related Questions

Navigate

• Browse (All)
• Browse M
• Subjects

---