blob: 075d70c6a445458a701eee0ef547780b299aa79d (
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
|
MODULE Ch1 EXPORTS Main;
IMPORT SIO;
VAR
A1:ARRAY[0..6] OF INTEGER := ARRAY OF INTEGER{-3,1,2,-1,3,-2,4};
A2:ARRAY[0..3] OF INTEGER := ARRAY OF INTEGER{-1,-2,-3,1};
A3:ARRAY[0..1] OF INTEGER := ARRAY OF INTEGER{1,2};
PROCEDURE MaxPositiveNegative(VAR A:ARRAY OF INTEGER):INTEGER =
VAR Neg,Pos:INTEGER := 0;
BEGIN
FOR I := FIRST(A) TO LAST(A) DO
IF A[I] < 0 THEN INC(Neg) ELSE INC(Pos) END
END;
RETURN MAX(Neg,Pos)
END MaxPositiveNegative;
BEGIN
SIO.PutInt(MaxPositiveNegative(A1)); SIO.Nl();
SIO.PutInt(MaxPositiveNegative(A2)); SIO.Nl();
SIO.PutInt(MaxPositiveNegative(A3)); SIO.Nl();
END Ch1.
|
