Sorting algorithms/Insertion sort: Difference between revisions
→{{header|Oberon-2}}
Deadmarshal (talk | contribs) (Added Oberon-2) |
Deadmarshal (talk | contribs) |
||
Line 3,856:
VAR
i:LONGINT;▼
A1:ARRAY 10 OF INTEGER;
Line 3,880 ⟶ 3,879:
PROCEDURE PrintArray(VAR A:ARRAY OF INTEGER);
▲ VAR i:LONGINT;
BEGIN
FOR i := 0 TO LEN(A)-1 DO Out.Int(A[i],0); Out.Char(' ') END;
| |||