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,1FOR i = 1 TO 4 FOR j = 1 TO 4 READ a(i, j) NEXTNEXTFOR i = 1 TO 4 s = s + a(i, i)NEXTPRINT s |
Тестирование выполнено в программе QB64 ( Скачать )