Заменить единицами элементы главной и обратной диагонали матрицы С(5,5) - VB
Формулировка задачи:
HELP me
Решение задачи: «Заменить единицами элементы главной и обратной диагонали матрицы С(5,5)»
textual
Листинг программы
Private Sub Command1_Click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 5 a(i, j) = 10 * Rnd(1) \ 1 Print a(i, j); Next j Print Next i Print For i = 1 To 5 a(i, i) = 1 a(6 - i, i) = 1 Next i For i = 1 To 5 For j = 1 To 5 Print a(i, j); Next j Print Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д