Sum of elements below main diagonal of matrix: Difference between revisions

Sum of elements below main diagonal of matrix en Yabasic
(Sum of elements below main diagonal of matrix en FreeBASIC)
(Sum of elements below main diagonal of matrix en Yabasic)
Line 256:
DATA 12,14,17,18,20
DATA 7, 1, 3, 9, 5</lang>
{{out}}
<pre>
Igual que la entrada de FreeBASIC.
</pre>
 
==={{header|FreeBASIC}}===
Line 282 ⟶ 278:
{{out}}
<pre>Sum of elements below main diagonal of matrix is 69</pre>
 
==={{header|Yabasic}}===
{{trans|FreeBASIC}}
<lang yabasic>dim diag(5, 5)
lenDiag = arraysize(diag(),1)
ind = lenDiag
sumDiag = 0
 
for x = 1 to lenDiag
for y = 1 to lenDiag
read diag(x, y)
next y
next x
 
for x = 1 to lenDiag
for y = 1 to lenDiag-ind
sumDiag = sumDiag + diag(x, y)
next y
ind = ind - 1
next x
 
print "Sum of elements below main diagonal of matrix: ", sumDiag
end
 
data 1, 3, 7, 8,10
data 2, 4,16,14, 4
data 3, 1, 9,18,11
data 12,14,17,18,20
data 7, 1, 3, 9, 5</lang>
 
 
2,136

edits