Переписать первые элементы каждой строки матрицы зед (4х5), большие заданной величины с, в вектор б(4). Если в строке нет такого элемента, то в вектор б записать 0.

Код обработчика нажатия кнопки CommandButton3Click

Private Sub CommandButton3_Click()

Const m As Integer = 3

Const n As Integer = 4

Dim c As Double

Dim A(m, n) As Integer

Dim B(m) As Integer

c = Val(InputBox("Задайте число с:", " Ввод значения c", 5))

Randomize

For i = 0 To m

For j = 0 To n

A(i, j) = Int(101 * Rnd - 50)

Next

Next

MsgBox " Элементы матрицы будут выведены в ячеках B54:F57"

For i = 0 To m

For j = 0 To n

Cells(54 + i...