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
41
42
43
44
45
46
47
48
49
50
51
52
53
|
MODULE Ch1 EXPORTS Main;
IMPORT SIO;
VAR
A1 := ARRAY[0..2],[0..3] OF INTEGER{
ARRAY[0..3] OF INTEGER{4,4,4,4},
ARRAY[0..3] OF INTEGER{10,0,0,0},
ARRAY[0..3] OF INTEGER{2,2,2,9}};
A2 := ARRAY[0..2],[0..1] OF INTEGER{
ARRAY[0..1] OF INTEGER{1,5},
ARRAY[0..1] OF INTEGER{7,3},
ARRAY[0..1] OF INTEGER{3,5}};
A3 := ARRAY[0..1],[0..2] OF INTEGER{
ARRAY[0..2] OF INTEGER{1,2,3},
ARRAY[0..2] OF INTEGER{3,2,1}};
A4 := ARRAY[0..2],[0..2] OF INTEGER{
ARRAY[0..2] OF INTEGER{2,8,7},
ARRAY[0..2] OF INTEGER{7,1,3},
ARRAY[0..2] OF INTEGER{1,9,5}};
A5 := ARRAY[0..3],[0..2] OF INTEGER{
ARRAY[0..2] OF INTEGER{10,20,30},
ARRAY[0..2] OF INTEGER{5,5,5},
ARRAY[0..2] OF INTEGER{0,100,0},
ARRAY[0..2] OF INTEGER{25,25,25}};
PROCEDURE HighestRow(VAR A:ARRAY OF ARRAY OF INTEGER):INTEGER =
VAR
Max := FIRST(INTEGER);
Sum:INTEGER;
BEGIN
FOR I := FIRST(A) TO LAST(A) DO
Sum := 0;
FOR J := FIRST(A[I]) TO LAST(A[I]) DO
INC(Sum,A[I,J])
END;
IF Sum > Max THEN Max := Sum END;
END;
RETURN Max
END HighestRow;
BEGIN
SIO.PutInt(HighestRow(A1)); SIO.Nl();
SIO.PutInt(HighestRow(A2)); SIO.Nl();
SIO.PutInt(HighestRow(A3)); SIO.Nl();
SIO.PutInt(HighestRow(A4)); SIO.Nl();
SIO.PutInt(HighestRow(A5)); SIO.Nl()
END Ch1.
|
