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