Вычислить сумму элементов стоящих на главной диагонали — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
DIM a(4,4)
DATA 1,2,0,3,2,3,1,2,0,2,3,1,4,0,2,1
FOR i=1 TO 4
FOR j=1 TO 4
READ a(i,j)
NEXT
NEXT
FOR i=1 TO 4
s=s+a(i,i)
NEXT
PRINT s

Похожие записи/страницы:

Leave a Comment