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