fork download
copy 
  1. ! ”¨« â®¢ ….€.  Š ä. 601
  2. ! ‡ ¤ ­¨¥ ü3 ‚ à¨ ­â 17
  3. program L317
  4. !‚ ¯à®£à ¬¬ã ¢¢®¤¨âáï ®¤­®¬¥à­ë© ¢¥é¥á⢥­­ë© ¬ áᨢ 䨪á¨à®¢ ­­®© ¤«¨­ë
  5. !á®áâ®ï騩 ¨§ ®¯à¥¤¥«¥­­®£® ç¨á«  í«¥¬¥­â®¢. à®£à ¬¬  ¢ë¢®¤¨â ¨á室­ë© ¬ áᨢ,
  6. !í«¥¬¥­âë, à ¢­ë¥ ¨­¤¥ªá ¬ ( …᫨ â ª¨å ­¥â, â®: " ’ ª¨å í«¥¬¥­â®¢ ­¥â" ),
  7. !¨ ¨å ª®«¨ç¥á⢮.  §¬¥à ¬ áᨢ  ¨ ¥£® í«¥¬¥­âë ¢¢®¤ïâáï á ª« ¢¨ âãàë.
  8. integer N, I, k, M
  9. !N-à §¬¥à ¬ áᨢ 
  10. !I-¨­¤¥ªá
  11. !k-ç¨á«® í«¥¬¥­â®¢, à ¢­ëå ¨­¤¥ªáã
  12. dimension A(100), B(100)
  13. !‚¢®¤¨¬ à §¬¥à ¬ áᨢ  ¨ ¥£® í«¥¬¥­âë
  14. print*, "Vvedite razmer massiva N"
  15. read*, N
  16. print*, "Vvedite elementy massiva N"
  17. read*, (A(I), I=1,N)
  18. ! ‚뢮¤¨âáï ­ ç «ì­ë© ¬ áᨢ
  19. print*, (A(I), I=1,N),"Massiv"
  20. ! ®¨áª í«¥¬¥­â®¢, à ¢­ëå ᢮¨¬ ¨­¤¥ªá ¬
  21. do I=1,N
  22. do k=I
  23. !‘à ¢­¨¢ îâáï í«¥¬¥­âë á ¨å ¨­¤¥ªá®¬
  24. if (A(I).eq.I) then
  25. B(k)=A(I)
  26. end if
  27. end do
  28. end do
  29. !à®á¬®âà ¯®«ã祭­ëå १ã«ìâ â®¢
  30. if (k.eq.0) then
  31. !‚뢮¤ १ã«ìâ â®¢
  32. print*, "Takih elementov net"
  33. else
  34. print*, (B(k), k=1,N)
  35. print*,"vsego",k,"elementov"
  36. end if
  37. end program L317
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
3
1
3
4
compilation info 
prog.f95:22:6:

 do k=I
      1
Error: Syntax error in iterator at (1)
prog.f95:28:3:

 end do
   1
Error: Expecting END PROGRAM statement at (1)
prog.f95:24:4:

 if (A(I).eq.I) then
    1
Warning: Equality comparison for REAL(4) at (1)
stdout
copy 
Standard output is empty
https://ideone.com/TzEiy0
language:
Fortran (gfortran 8.3)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!