blob: e2cbd1349b712d48beca265c86e80d8c670a2608 (
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
|
MODULE Ch2 EXPORTS Main;
IMPORT SIO;
VAR
A1:ARRAY[0..6] OF CARDINAL := ARRAY OF CARDINAL{3,1,2,2,2,1,3};
A2:ARRAY[0..2] OF CARDINAL := ARRAY OF CARDINAL{1,2,3};
PROCEDURE CountEqualDivisible(VAR A:ARRAY OF CARDINAL;
READONLY K:CARDINAL):CARDINAL =
VAR Count:CARDINAL := 0;
BEGIN
FOR I := FIRST(A) TO LAST(A)-1 DO
FOR J := I+1 TO LAST(A) DO
IF (A[I] = A[J]) AND ((I*J) MOD K = 0) THEN INC(Count) END
END
END;
RETURN Count
END CountEqualDivisible;
BEGIN
SIO.PutInt(CountEqualDivisible(A1,2)); SIO.Nl();
SIO.PutInt(CountEqualDivisible(A2,1)); SIO.Nl();
END Ch2.
|
