Найти наиболее часто встречающееся число в массиве и вывести его - VB

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

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

сформировать массив из 20 случайных элементов в диапазоне от -10 до 10,найти мах число и вывести его,найти наиболее часто встречающееся число и вывести его,ввести с клавиатуры какое либо число и выяснить встречается оно в массиве или нет. выяснить какие числа встречаются чаще положительные или отрицательные.

Решение задачи: «Найти наиболее часто встречающееся число в массиве и вывести его»

textual
Листинг программы
Private Sub Command1_Click()
Dim a&(1 To 20), b&(1 To 20)
Form2.Cls
Randomize
For i = 1 To 20
 a(i) = 10 - Int(Rnd(1) * 21)
 Print a(i);
Next i
Dim m As Integer
m = a(1)
For i = 2 To 20
 If a(i) > m Then m = a(i)
Next i
Print
Print " max = " & m
 
For i = 1 To 20
 b(i) = 1
Next i
 
For i = 1 To 19
For j = i + 1 To 20
 If a(i) = a(j) Then b(i) = b(i) + 1
Next j
Next i
 
Dim n As Integer, l As Integer
n = 1: l = b(1)
For i = 2 To 20
 If l < b(i) Then n = i: l = b(i)
Next i
Print a(n) & " vstechaeza " & b(n) & " raz"
 
Dim p&, o&
For i = 1 To 20
 If a(i) < 0 Then o = o + 1
 If a(i) > 0 Then p = p + 1
Next i
Print "pol chisel " & p & ", otriz chisel, " & o
 
Dim c&
c = InputBox(" chislo")
For i = 1 To 20
 If a(i) = c Then MsgBox "Chislo imeeza": Exit Sub
Next i
MsgBox "takogo chisla net"
 
 
End Sub

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


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

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

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