(qbasic) матрица, нахождение суммы строк, замена столбца суммами

[Serge_Bliznykov]

без проверки (лень искать QBasic),
писал прямо здесь, поэтому возможны ошибки в коде
за основу взял код от Qaliti

cls

dim A(6, 8) 

print "Начальная матрица"
for i = 1 to 6
   for j = 1 to 8
      A(i, j) = int(rnd(-99999999999999999999) * 99999999999999999999)
      print A(i, j); " ";
   next j
   print ""
next i
print "-----------------"

for i = 1 to 6
  sym = 0
  for j = 1 to 8
    sym = sym + A(i, j)  
  next j
  A(i,2) = sym
next i


print "Обработанная матрица"
for i = 1 to 6
   for j = 1 to 8
      print A(i, j); " ";
   next j
   print ""
next i
print "-----------------"

end

[qbasic_maniac]

всем огромное спасибо!
программа работает, все окей))

[Alenka11]

Помогите пожалуйста!!! можно в маткаде или в бэйсике решать.
задать квадратную матрицу. найти максимальный элемент матрицы. разделить каждый элемент матрицы на максимальный элемент. записать полученную матрицу в новый массив, сохранив начальный массив.