Abaduaber

RAM

Dec 23rd, 2019
800
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. CLS
  2. DIM C, I
  3. INPUT "Input C: ", C
  4. DIM Z(1 TO C), X(1 TO C), Y(1 TO C)
  5. FOR I = 1 TO C
  6.     PRINT "Z("; I; ") = ";
  7.     INPUT "", Z(I)
  8. NEXT I
  9. DIM XI, YI
  10. FOR I = 1 TO C
  11.     IF (I MOD 2 = 0) THEN
  12.         XI = XI + 1
  13.         X(XI) = Z(I)
  14.     ELSE
  15.         YI = YI + 1
  16.         Y(YI) = Z(I)
  17.     END IF
  18. NEXT I
  19. PRINT "X array: "
  20. FOR I = 1 TO XI
  21.     PRINT "X("; I; ") ="; X(I); ";  ";
  22. NEXT I
  23. PRINT
  24. PRINT "Y array: "
  25. FOR I = 1 TO YI
  26.     PRINT "Y("; I; ") ="; Y(I); ";  ";
  27. NEXT I
RAW Paste Data