дана матрица целых чисел x(n,m).упорядочить ее строки по возрастанию сумм их элеменов.вывести исходную и полученную матрицы. прграмма выдает исходную программу в которой уже столбцы расположены по возрастанию сумм,как сделать.что бы изначально он их в разнобой выводил?
CLS
RANDOMIZE TIMER
PRINT "vvedite shirinu";
INPUT m
PRINT "vvedite visotu";
INPUT n
PRINT "vvedite maxialnoe chislo max = ";
INPUT max
DIM a(n, m) AS INTEGER ' ishodniy massiv
DIM r(n, m) AS INTEGER ' massiv resultat
DIM s(n) AS INTEGER ' massiv summ strok
DIM ind(n) AS INTEGER ' massiv indeksov strok
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = RND * max
PRINT a(i, j); "; ";
NEXT
s(i) = 0
ind(i) = i
PRINT
NEXT
' nahodim summi strok
FOR i = 1 TO n
FOR j = 1 TO m
s(i) = s(i) + a(i, j)
NEXT
NEXT
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
IF s(i) > s(j) THEN
t = s(i)
ti = ind(i)
s(i) = s(j)
ind(i) = ind(j)
s(j) = t
ind(j) = ti
END IF
NEXT
NEXT
FOR i = 1 TO n
FOR j = 1 TO m
r(i, j) = a(ind(i), j)
NEXT
NEXT
PRINT "-----------------------------------"
' vivod otsortirovannogo massiva
FOR i = 1 TO n
FOR j = 1 TO m
PRINT r(i, j); "; ";
NEXT
PRINT
NEXT