20
Декабрь
2009
Заполнить в памяти матрицу В размерности m на n
Заполнить в памяти матрицу В размерности m на n
Заполнить в памяти ЭВМ матрицу В размерности m*n так, чтобы каждый элемент был равен сумме его индексов строки и столбца. Полученную матрицу напечатать. Проанализировать выполнение программы на примере m=3, n=4.
Dim MaxI As Integer, i As Integer
Dim MaxJ As Integer, j As Integer
MaxI = InputBox("Количество строк") 'задает количество строк
MaxJ = InputBox("Количество столбцов") 'столбцов
For i = 1 To MaxI
For j = 1 To MaxJ
Print j + i; 'записывает в ячейку сумму индексов
Next j
Print
Next i