blob: 2b357edd532f9838b9f2c19f55534ed168074e7b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
MODULE Ch1;
IMPORT Out;
VAR
A1:ARRAY 3 OF INTEGER;
A2:ARRAY 2 OF INTEGER;
PROCEDURE Init;
BEGIN
A1[0] := 0; A1[1] := 1; A1[2] := 3;
A2[0] := 0; A2[1] := 1;
END Init;
PROCEDURE MissingNumbers(VAR arr:ARRAY OF INTEGER);
VAR
i:LONGINT;
hash:ARRAY 10 OF INTEGER;
BEGIN
FOR i := 0 TO 9 DO hash[i] := 0 END;
FOR i := 0 TO LEN(arr)-1 DO hash[arr[i] MOD 10] := 1 END;
FOR i := 0 TO LEN(arr) DO
IF hash[i] # 1 THEN Out.Int(i,0); Out.Char(' ') END;
END;
Out.Ln;
END MissingNumbers;
BEGIN
Init;
MissingNumbers(A1);
MissingNumbers(A2);
END Ch1.
|
