Дана квадратная матрица. Подсчитать сумму значений элементов каждой строки — QBasic(Бейсик)

CLS
INPUT "Vvedite n: ", n
DIM 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 ( Скачать )

Leave a Comment