Guest User

Untitled

a guest
Feb 20th, 2018
147
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.27 KB | None | 0 0
  1. n=10
  2. DIM numbers(n)
  3. FOR i=1 TO n
  4.     PRINT "vvedite chislo #("; i; "): "
  5.     INPUT numbers(i)
  6. NEXT
  7.  
  8. FOR i=1 TO n
  9.     IF numbers(i-1) > numbers(i) THEN
  10.         SWAP numbers(i-1), numbers(i)
  11.     END
  12. NEXT
  13.  
  14. FOR i=1 TO 5
  15.     sum = sum + numbers(i)
  16. END
  17.  
  18. PRINT "summa ravna "; sum
Add Comment
Please, Sign In to add comment