Составить 2 блок-схемы: 1. private sub command1_click() dim i as integer, j as integer, l as integer, m as integer, b as integer, c as integer, u as integer dim r6() as single, p as integer m = inputbox("количство строк матрицы=") l = inputbox("количество столбцов матрицы=") redim r6(m, l) for i = 1 to m for j = 1 to l r6(i, j) = inputbox("введите r6(" & i & "," & j & ")=") next next p = r6(2, 2) for i = 2 to m step 2 for j = 2 to l step 2 if p > r6(i, j) then p = r6(i, j) b = i c = j u = p end if next next r6(1, 2) = u msgbox ("минимальный элемент с четным индексом r6(" & b & "," & c & ")=" & u) end sub 2. private sub command1_click() dim i as integer, j as integer, m as integer dim w() as single, flag as boolean m = inputbox("введите количество строк") redim w(1 to m, 1 to m) for i = 1 to m for j = 1 to m w(i, j) = inputbox("w(" & i & "," & j & ")=") print w(i, j); next print next flag = false print end sub

shijoatova48    3   19.09.2019 14:00    0