Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
# modula2/array_sum.m2
MODULE ArraySum;
IMPORT InOut;
VAR arr: ARRAY 1..5 OF INTEGER := (1,2,3,4,5);
sum, i: INTEGER;
BEGIN
sum := 0;
FOR i := 1 TO 5 DO
sum := sum + arr[i];
END;
InOut.WriteInt(sum,0);
InOut.WriteLn;
END ArraySum.Coding works best on desktop or with an external keyboard.