получить прямоугольную матрицу A,заполнить натуральными случайными числами, записать

Ответить
ElenaRomanova
Сообщения: 2
Зарегистрирован: 29 май 2013, 01:28

29 май 2013, 01:35

Задание:
При помощи датчика случайных чисел получить прямоугольную матрицу A, имеющую три столбца и N строк (N – целое случайное число в диапазоне от 9 до 20). Первые два столбца заполнить натуральными случайными числами в диапазоне от 30 до 400. В третий столбец записать наибольший общий делитель двух чисел, стоящих в первом и втором столбцах. Полученную матрицу вывести в окно отладки.

пытался решит
Sub двумерный_массив()
Sheets("Лист1").Select
Sheets("Лист1").Range("A1:X100").Cl ear
Dim a() As Integer, i As Integer, j As Integer, n As Byte, m As Byte
n = 11 * Rnd + 9: m = 3
ReDim a(n, m)
Randomize Timer
For i = 1 To n
For j = 1 To m
a(i, j) = 370 * Rnd + 30
Next j
Next i
For i = 1 To n
For j = 1 To m
Cells(i + 1, j + 1) = a(i, j)
If

Next j
Next i

End Sub

Спасибо за ранее! Я надеюсь на вашу помощь! Спасибо еще раз!
Ответить