RosettaCodeData/Task/Sort-an-integer-array/BaCon/sort-an-integer-array.bacon

15 lines
206 B
Plaintext

' Sort an integer array
DECLARE values[5] TYPE NUMBER
values[0] = 23
values[1] = 32
values[2] = 12
values[3] = 21
values[4] = 01
SORT values
FOR i = 0 TO 3
PRINT values[i], ", ";
NEXT
PRINT values[4]