⇢ ЮЧ
Юлия Черная
помогите с visual basic)
Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности.
Виталий Евстигнеев
Module N84556853
Sub Main()
Dim rand = New Random
Dim n As Integer = rand.Next(10, 101)
Console.WriteLine("Дана последовательность из {0} чисел: ", n)
Dim s = New List(Of Integer)
Dim x As Integer
For i As Integer = 1 To n
x = rand.Next(-50, 51)
Console.Write("{0,4}", x)
If s.IndexOf(x) < 0 Then
s.Add(x)
End If
Next
Console.WriteLine()
Console.Write("Различных чисел в последовательности: {0}", s.Count)
Console.ReadKey()
End Sub
End Module
Р"
Ринат "паркет-Гранд"
Сортируете, считаете количество разных соседних чисел. Как-то так.
Похожие вопросы