Составить 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
Next
flag = False
End Sub
Ответы на задачу по Составить 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 для школьников 10 - 11 класс. Узнайте решение и читайте обсуждения по предмету Информатика. Ответы на этот вопрос уже добавлены. Наш сайт предлагает вам возможность стать экспертом и помогать другим.
У меня такая блок-схема ко второму получилась