Сортировка массива - матрицы - 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