Прямоугольную матрицу A, состоящую из двух столбцов и N (вводится с клавиатуры) строк заполнить натуральными случайными
Должно получиться как то так... Но это не доделано!!! !
Sub Двумерный_массив ()
Sheets("Лист1").Select
Sheets("Лист1").Range("A1:X100").Clear
Dim a() As Byte, i As Byte, g As Byte, n As Byte
n = InputBox("Введите количество строк")
ReDim a(n, 2)
Randomize Timer
For i = 1 To n
For j = 1 To 2
a(i, j) = Rnd * 89 + 10
Next j
Next i
For i = 1 To n
For j = 1 To 2
Cells(i + 1, j + 1) = a(i, j)
d = a(i, 1): b = a(i, 2)
Cells(i + 1, 4) = d
Next j
Next i
End Sub
Function НОД (ByVal d As Long, ByVal b As Long) As Long
While d <> b
If d > b Then d = d - b Else b = b - d
Wend
НОД = d
End Function
Function НОК (ByVal d As Long, ByVal b As Long) As Long
Dim c As Long
If d > b Then c = d Else c = b
While (c Mod b) <> 0
c = c + d
Wend
НОК = c
End Function
Я дальше не могу делать... Мне это тоже сделали, и зашли в тупик!!!!