Дан фрагмент программы на языке программирования Pascal
sum:=0
for i:=1 to n do
if j: (i<=j) and (i+j<=n+1) then
sim:=sum+x[i,J]
writelm(sum)
sum:=0
for i:=1 to n do
if j: (i<=j) and (i+j<=n+1) then
sim:=sum+x[i,J]
writelm(sum)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Подсчёт суммы элементов выше и на главной диагонали, выше и на побочной диагонали