blob: 91ac5e12005c476cf8c3dadd97078e06bf801b6a (
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
|
MODULE Ch2;
IMPORT Out;
VAR
A1,A2:ARRAY 5 OF INTEGER;
PROCEDURE Init;
BEGIN
A1[0] := 10; A1[1] := 8; A1[2] := 5; A1[3] := 4; A1[4] := 3;
A2[0] := 25; A2[1] := 8; A2[2] := 5; A2[3] := 3; A2[4] := 3;
END Init;
PROCEDURE HIndex(VAR A:ARRAY OF INTEGER):INTEGER;
VAR
i:LONGINT;
BEGIN
FOR i := 0 TO LEN(A)-1 DO
IF i >= A[i] THEN RETURN SHORT(i) END
END;
END HIndex;
BEGIN
Init;
Out.Int(HIndex(A1),0); Out.Ln;
Out.Int(HIndex(A2),0); Out.Ln;
END Ch2.
|
