Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Заполнить двумерную квадратную матрицу


Заполнить двумерную квадратную матрицу
2009-12-22 07:00 Александр
Заполнить двумерную квадратную матрицу Private Sub Command1_Click() Dim A() As Integer, i As Integer, j As Integer, n As Integer n = InputBox("Введите размерность матрицы") If n < 2 Then MsgBox "Недопустимое значение": Exit Sub ReDim A(n, n) For i = 1 To n Print For j = 1 To n If i = 1 Then A(i, j) = [...]


В избранное