Получить квадратную матрицу 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д