Дано число а. Определить, сколько раз это число встречается в массиве T(n,n) - VB
Формулировка задачи:
Дано число а. Определить, сколько раз это число встречается в массиве T(n,n).
Решение задачи: «Дано число а. Определить, сколько раз это число встречается в массиве T(n,n)»
textual
Листинг программы
Option Explicit Dim A() As Integer, n As Integer, m As Integer, k As Integer Dim i As Integer, j, z As Integer: Private Sub Command1_Click() Randomize 'Иницилизация генератора случайных чисел Me.Cls 'Очищаем форму m = InputBox("Введите число строк", , 10) n = InputBox("Введите число столбцов", , 10) k = InputBox("Введите число k", , 7) z = 0 ReDim A(1 To m, 1 To n) ' Размеры матрицы А - m-строк, n-столбцов For i = 1 To m For j = 1 To n A(i, j) = Int(Rnd * 21 - 10) 'Заполняем матрицу случайными числами Print A(i, j); vbTab; Next j Print Next i Print Print For i = 1 To m For j = 1 To n If A(i, j) = k Then z = z + 1 'Print A(i, j); vbTab; Next j Next i Print z End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д