Квадратная матрица, найти количество элементов, превышающих некоторое число - VB

Узнай цену своей работы

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

В квадратной матрице порядка N найти в каждом столбце количество элементов превышающих число А.

Решение задачи: «Квадратная матрица, найти количество элементов, превышающих некоторое число»

textual
Листинг программы
Private Sub Command1_Click()
Dim n As Integer, a As Integer
n = InputBox("n")
 
ReDim b(n, n) As Integer, c(n) As Integer
For i = 1 To n
For j = 1 To n
 b(i, j) = Rnd(1) * 10 \ 1
 Print b(i, j);
Next j
Print
Next i
 
a = InputBox("a")
For i = 1 To n
For j = 1 To n
 If b(j, i) > a Then c(i) = c(i) + 1
Next j
Print c(i);
Next i
 
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

13   голосов , оценка 4.385 из 5
Похожие ответы