Anonymous user
Sum of elements below main diagonal of matrix: Difference between revisions
Sum of elements below main diagonal of matrix (view source)
Revision as of 10:45, 17 December 2021
, 2 years ago→{{header|GW-BASIC}}
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 342:
120 PRINT SUM</lang>
{{out}}<pre>69</pre>
==={{header|PL/I}}===
<lang PL/I>
trap: procedure options (main); /* 17 December 2021 */
declare n fixed binary;
get (n);
put ('The order of the matrix is ' || trim(n));
begin;
declare A (n,n) fixed binary;
declare sum fixed binary;
declare (i, j) fixed binary;
get (A);
sum = 0;
do i = 2 to n;
do j = 1 to i-1;
sum = sum + a(i,j);
end;
end;
put edit (A) (skip, (n) f(4) );
put skip data (sum);
end;
end trap;
</lang>
{{out}}
<pre>
The order of the matrix is 5
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
SUM= 69;
</pre>
==={{header|QBasic}}===
| |||