32 lines
426 B
Plaintext
32 lines
426 B
Plaintext
PROGRAM ARRAY_CONCAT
|
|
|
|
DIM A[5],B[5],C[10]
|
|
|
|
!
|
|
! for rosettacode.org
|
|
!
|
|
|
|
BEGIN
|
|
DATA(1,2,3,4,5)
|
|
DATA(6,7,8,9,0)
|
|
|
|
FOR I=1 TO 5 DO ! read array A[.]
|
|
READ(A[I])
|
|
END FOR
|
|
FOR I=1 TO 5 DO ! read array B[.]
|
|
READ(B[I])
|
|
END FOR
|
|
|
|
FOR I=1 TO 10 DO ! append B[.] to A[.]
|
|
IF I>5 THEN
|
|
C[I]=B[I-5]
|
|
ELSE
|
|
C[I]=A[I]
|
|
END IF
|
|
PRINT(C[I];) ! print single C value
|
|
END FOR
|
|
|
|
PRINT
|
|
|
|
END PROGRAM
|