Найти количество столбцов произвольной матрицы - VB

  1. Найти количество столбцов произвольной матрицы, в которых в первой строке расположены отрицательные числа. Входные данные: m,n-размерность,целые числа А()-массив Выходные данные: К-количество столбцов помогите составить кооод и алгориитм пожалуйстааа ((


textual

Код к задаче: «Найти количество столбцов произвольной матрицы - VB»

Private Sub Command1_Click()
Dim B() As Integer, i As Integer, j As Integer, n As Integer, m As Integer
Dim min As Integer, a As Integer, d As Integer, max As Integer, C As Integer
m = InputBox("Vvedite m")
n = InputBox("Vvedite n")
ReDim B(1 To m, 1 To n)
Print "Maссив B"
For i = 1 To m
For j = 1 To n
B(i, j) = Int(Rnd * 101)
Print B(i, j); vbTab;
Next j
Print
Next i
min = B(1, 1)
For i = 1 To m
For j = 1 To n
If B(i, j) < min Then min = B(i, j): a = i: d = j
Next j
Next i
Print
Print "Минимальный элемент массива В (" & a & ", " & d & " ) = " & min
Print
max = B(1, 1)
For i = 1 To m
For j = 1 To n
If B(i, j) > max Then max = B(i, j): a = i: d = j
Next j
Next i
Print
Print "Максимальный элемент массива В (" & a & ", " & d & " ) = " & max
Print

СДЕЛАЙТЕ РЕПОСТ

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



Похожие ответы
  1. Дана матрица размером MxN . Найти количество его столбцов, элементы которых упорядочены по убыванию.

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 begin   write('Введите n: ');   var n := ReadInteger;     var c := 0;   for var i:=1 to n do   begin     write ('Введите целое число: ');     var x := ReadInteger;     if x mod 2 <> 0 then       c += 1;   end;     writeln('Количество нечетных равно ', c); end. Нужно сделать в VB . Я сделал , но не правильно , выводит только 0. Помогите пожалуйста , буду благодарен. Вот мой код :

  1. 1) создать экранную форму, разместив на ней элементы управления: кнопку и два тек-стовых поля – одно для ввода чисел, другое – для вывода результата вычислений; 2) поместить на форму поясняющие надписи около этих элементов, а также фамилию, номер группы, текущую дату и номер варианта; 4) создать процедуру, запускаемую при нажатии кнопки на форме и выполняющую необходимые вычисления. В заданном массиве подсчитать количество чисел, делящихся без остатка на 7: 28 21 26 14 63 28 33 19 21 22

  1. Записать в 1 строку 10 целых чисел из диапазона [-3;3]. Определить,сколько из этих элементов равны числу А (целое,вводимое с клавиатуры). Вывести найденное количество элементов в любую ячейку строки В (в пределах экрана), которую выделить зеленым цветом. Если элементов,равных числу А нет,то вывести число не равное нулю и закрасить синим цветом. А принадлежит [-3;3]

  1. Описать процедуру DigitCountSum(K, C, S), находящую количество C цифр целого положительного числа K, а также их сумму S (K — входной, C и S — выходные параметры целого типа). С помощью этой процедуры найти количество и сумму цифр для каждого из пяти данных целых чисел.

  1. Дана строка. Подсчитать количество содержащихся в ней цифр.

  1. Сколько существует четырехзначных чисел,которые в 600 раз больше суммы своих цифр?

  1. Народ, знаю, что вас бесят подобные темы, но прошу помогите. Начали преподавать VB6, но раньше я его не встречал. Задача такова: Дан двумерный массив размерностью N x M элементов. Определить количество элементов, значения которых больше заданного числа F. Если не сложно, пожалуйста напишите полный код с пояснениями. Массив рандомный. Заранее спасибо.

  1. Господа, прошу помочь написать цикл, который посчитает кол-во элементов массива определенной тематики и запишет это число в переменную Interact. В vbs я новичок, поэтому буду изъясняться на дилетантском языке. Есть массив, каждый элемент массива состоит из трех слов одной тематики, например:0 - Car;Bike;Motorcycle 'Транспорт1 - Cup;Spoon;Knife 'Посуда2 - Table;Chair;Box 'Мебель Меня интересует тематика Транспорт, слова в элементе могут стоять в разном порядке, например: Car;Bike;Motorcycle Bike;Bike;Car Motorcycle;Bike;Bike Если в элементе есть хоть одно из трех слов Car, Bike, Motorcycle, то Interact будет равен 1. Приведу еще один пример массива где Interact будет равен 2 (0 и 2 элемент массива имеют тематику Транспорт):0 - Car;Car;Motorcycle1 - Cup;Spoon;Spoon2 - Motorcycle;Car;Bike3 - Box;Chair;Box

  1. Пиксели рисунка закодированы числами (обозначающими цвет) в виде матрицы, содержащей N строк и M столбцов. Выполните поворот рисунка вправо на 90 градусов. пример: исходный массив: 1 2 3 4 5 6 7 8 9 результат: 7 4 1 8 5 2 9 6 3