Сортировка массива - матрицы - VB
Формулировка задачи:
Дана матрица А [N, N] Сформировать одномерный массив из элементов главной и побочной диогонали?
Решение задачи: «Сортировка массива - матрицы»
textual
Листинг программы
Sub Task() Dim arrMain(), arrMatrix() Dim M As Integer, i As Integer, j As Integer, sStr As String, sStr1 As String, sStr2 As String M = InputBox("ГђГ*çìåðГ*îñòü Г¬Г*òðèöû:") ReDim arrMatrix(1 To M, 1 To M): ReDim arrMain(1 To M * 2) For i = 1 To M For j = 1 To M arrMatrix(i, j) = Int(Rnd * 50 + 10) sStr = sStr & arrMatrix(i, j) & " " Next sStr = sStr & vbNewLine Next j = M + 1 For i = 1 To M arrMain(i) = arrMatrix(i, i) arrMain(M * 2 - (i - 1)) = arrMatrix(i, j - i) Next sStr = sStr & vbNewLine For i = 1 To M * 2 sStr = sStr & arrMain(i) & " " Next MsgBox sStr End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д