Получить квадратную матрицу A размером N на N (N – случайное число от 4 до 9) - VB

Формулировка задачи:

Всем салам! помогите решить задачку Получить квадратную матрицу A размером N на N (N – случайное число от 4 до 9) вида: 1. Вывести исходную матрицу. 2. Найти среднее арифметическое элементов четных столбцов матрицы. 3. Заменить на (-1) элементы матрицы, большие среднего арифметического. 3. Вывести среднее арифметическое и преобразованную матрицу.

Решение задачи: «Получить квадратную матрицу A размером N на N (N – случайное число от 4 до 9)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim a%(), n!, i%, j%
Dim S
Cls
Randomize (Timer)
n = Int(Rnd * 6) + 4
Print "n = "; n
ReDim a(n, n)
S = 0
For i = 1 To n
For j = 1 To n
 If j < n - i + 2 Then a(i, j) = n - i - j + 2
 Print a(i, j); "  ";
 If j Mod 2 = 0 Then S = S + a(i, j)
Next
Print
Next
 
S = S / (n * (n \ 2))
Print: Print "S="; S: Print
 
For i = 1 To n
For j = 1 To n
  If a(i, j) > S Then a(i, j) = -1
 Print a(i, j); "  ";
Next
Print
Next
End Sub

Оцени полезность:

15 голосов , оценка 4.067 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы