1 2 3 4 5 6 7 8 9 10 11 12 13 14 | CLSINPUT "Vvedite n: ", nDIM A(n, n) FOR i = 1 TO n FOR j = 1 TO n A(j, i) = INT(RND * 10) NEXT: NEXT FOR i = 1 TO n S = 0 FOR j = 1 TO n S = S + A(j, i) PRINT A(i, j); NEXT: COLOR 10: PRINT S: COLOR 7: NEXT |
Тестирование выполнено в программе QB64 ( Скачать )