MODULE Quiz;
VAR
a1*, a2*: ARRAY 1000 OF INTEGER;
PROCEDURE* Init*;
CONST N = LEN(a1) - 1;
VAR i: INTEGER;
BEGIN
FOR i := 0 TO N DO
a1 := i;
a2 := i
END
END Init;
Search found 1 match
- Mon Dec 08, 2014 8:43 am
- Forum: Oberon Language
- Topic: Oberon Competition - Win a $US50 Amazon Gift Voucher
- Replies: 6
- Views: 70198