Задача:

Умножить двумерный массив на число

Код программы на Visual Basic

Const N = 4

Const M = 3

Dim A(1 To N, 1 To M) As Integer

Dim B(1 To N, 1 To M) As Integer

Dim C As Integer

C = Val(InputBox(«c=», C))

Print «Умножить на «; C

Print «исходная матрица»

For i = 1 To N

For j = 1 To M

A(i, j) = Int(Rnd * 34 – 10)

Print A(i, j);

Next j

Print

Next i

Print «полученная матрица»

For i = 1 To N

For j = 1 To M

B(i, j) = C * A(i, j)

Print B(i, j);

Next j

Print

Next i

End Sub