Определить количество отрицательных элементов массива - VB

  1. Дан массив, состоящий из 20 элементов. Определить количество отрицательных элементов.


textual

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

Dim a(1 To 20) As Single
Dim b%
List1.Clear
List1.AddItem "ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў"
For i = 1 To 20
 a(i) = InputBox("Ââåäèòå ýëåìåГ*ГІ Г¬Г*Г±Г±ГЁГўГ* " & i)
 If a(i) < 0 Then b = b + 1
 List1.AddItem a(i)
Next i
List1.AddItem "×èñëî îòðèöГ*ГІeëüГ*ûõ ýëåìåГ*òîâ"
List1.AddItem b

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

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



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

  1. Дано натуральное трехзначное число. Определить цифры этого числа (K, L, M) и выяснить, можно ли построить произвольный треугольник K, L, M. Пожалуйста!!

  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. Задан целочисленный массив из 10 элементов 1) определить, есть ли в массиве последовательность из n повторяющихся элементов, стоящих подряд. n пользователь вводит. подводный камень: 3334445551 - n должно быть <=3,однако при неправильном коде(как у меня) выводит,что,допустим, 5 элементов тоже есть

  1. Отметки точек трассы представлены как элементы массива. В этом массиве находят разность мах и мин элементов для определения размаха эпюры трассы. Величина размаха учитывается при выборе размеров (формата) чертежа. В данной задаче студентам следует решить только первую часть проблемы: определить максимальный элемент массива

  1. как определить язык windows на VB6.0?

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

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