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