blob: a9b8dba3da4ca3fc86addd6a6012b55c668f6987 (
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
34
35
36
37
38
39
40
|
MODULE Ch1;
IMPORT Out;
VAR
A1:ARRAY 5 OF LONGINT;
A2:ARRAY 4 OF LONGINT;
A3:ARRAY 3 OF LONGINT;
PROCEDURE Init;
BEGIN
A1[0] := 0; A1[1] := 2; A1[2] := 9; A1[3] := 4; A1[4] := 5;
A2[0] := 5; A2[1] := 1; A2[2] := 3; A2[3] := 2;
A3[0] := 2; A3[1] := 2; A3[2] := 3;
END Init;
PROCEDURE RemoveOne(VAR arr:ARRAY OF LONGINT):LONGINT;
VAR
i,c1,c2,idx1,idx2:LONGINT;
BEGIN
c1 := 0; c2 := 0;
idx1 := -1; idx2 := -1;
FOR i := 1 TO LEN(arr)-1 DO
IF arr[i] <= arr[i-1] THEN INC(c1); idx1 := i-1 END
END;
FOR i := LEN(arr)-2 TO 1 BY -1 DO
IF arr[i] >= arr[i+1] THEN INC(c2); idx2 := i+1 END
END;
IF (c1 = 1) & (c2 = 1) & ((idx2 - idx1 + 1) = 2) THEN RETURN 1 END;
IF (c1 > 1) OR (c2 > 1) THEN RETURN 0 END;
RETURN 1
END RemoveOne;
BEGIN
Init;
Out.Int(RemoveOne(A1),0); Out.Ln;
Out.Int(RemoveOne(A2),0); Out.Ln;
Out.Int(RemoveOne(A3),0); Out.Ln;
END Ch1.
|
