Получить квадратную матрицу A размером NxN (N – случайное число от 7 до 10) - VB
Формулировка задачи:
Вообще не понимаю как сделать( помогите пожалуйста! язык программирования Visual basic
Получить квадратную матрицу A размером NxN (N – случайное число от 7 до 10) вида:
1. Вывести исходную матрицу.
2. Найти S - среднее арифметическое элементов последней строки матрицы.
3. Заменить нулями все элементы матрицы, превосходящие S.
4. Вывести среднее арифметическое S и преобразованную матрицу.
Решение задачи: «Получить квадратную матрицу A размером NxN (N – случайное число от 7 до 10)»
textual
Листинг программы
Form1.Cls Dim n!, a!(), s! n = InputBox("n") ReDim a(n, n) Print "ishodnay matriza" For i = 1 To n For j = 1 To n a(i, j) = 7 + Rnd(1) * 3 Print a(i, j); " "; Next j Print Next i For i = 1 To n s = a(n, i) + s Next i s = s / n Print "s = "; s Print "preobrazovanay matriza" For i = 1 To n For j = 1 To n If a(i, j) > s Then a(i, j) = 0 Print a(i, j); Tab; Next j Print Next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д