Получить квадратную матрицу 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

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

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

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

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

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