Sum of elements below main diagonal of matrix: Difference between revisions
Sum of elements below main diagonal of matrix (view source)
Revision as of 04:07, 25 June 2022
, 1 year agoAdd Seed7
Thundergnat (talk | contribs) m (→{{header|Phix}}: Fix bad header markup causing namespace collision) |
(Add Seed7) |
||
Line 1,429:
<pre>69
</pre>
=={{header|Seed7}}==
<lang seed7>$ include "seed7_05.s7i";
const proc: main is func
local
var integer: sum is 0;
var integer: i is 0;
var integer: j is 0;
const array array integer: m is [] ([] ( 1, 3, 7, 8, 10),
[] ( 2, 4, 16, 14, 4),
[] ( 3, 1, 9, 18, 11),
[] (12, 14, 17, 18, 20),
[] ( 7, 1, 3, 9, 5));
begin
for i range 2 to length(m) do
for j range 1 to i - 1 do
sum +:= m[i][j];
end for;
end for;
writeln(sum);
end func;</lang>
{{out}}
<pre>
69
</pre>
=={{header|Wren}}==
<lang ecmascript>var m = [
| |||