Vba. как переделать этот код , что б он считал и менял меж собой минимальные и максимальные элементы не столбцов,а строк? private sub commandbutton1_click() dim s() as integer, n as integer, m as integer dim i as integer, j as integer dim min as integer, max as integer cells.clear n = inputbox("ctroki", , 4) m = inputbox("ctolbec", , 5) randomize redim s(n, m) as integer for j = 1 to m max = -100: min = 100 for i = 1 to n s(i, j) = rnd() * 60 - 10 cells(i + 1, j + 1) = s(i, j) cells(i + 3 + n, j + 1) = s(i, j) if min > s(i, j) then min = s(i, j) q = j end if if max < s(i, j) then max = s(i, j) w = j end if next s(i, q) = min cells(w + 3 + n, j + 1) = s(w, j) s(i, w) = max cells(q + 3 + n, j + 1) = s(q, j) next end sub

Private sub commandbutton1_click()       dim s() as integer, n as integer, m as integer       dim i as integer, j as integer       dim min as integer, max as integer, q as integer, w as integer       cells.clear       n = inputbox("ctroki", , 4)       m = inputbox("ctolbec", , 5)       randomize       redim s(n, m) as integer       for i = 1 to n               max = -100: min = 100               for j = 1 to m                       s(i, j) = int(rnd() * 60 - 10)                       cells(i, j) = s(i, j)                       cells(i + 2 + n, j) = s(i, j)                       if min > s(i, j) then                               min = s(i, j)                               q = j                       end if                       if max < s(i, j) then                               max = s(i, j)                               w = j                       end if               next j               cells(i + 2 + n, w) = min               cells(i + 2 + n, q) = max       next i end sub

Ответ е) чипсет . чипсе́т  (.  chipset)  — набор  микросхем, спроектированных для совместной работы с целью выполнения набора заданных функций