Определить, есть ли в массиве последовательность из n повторяющихся элементов

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

Добавлено через 12 минут
массив проинициализированный

0

Sverhrazum22
Ваша ошибка находится в цикле (строки 6-10)
1. Там идет подсчет вообще всех равных рядом
стоящих элементов...
2. Чтобы исправить ошибку, надо в условии If
добавить строку с Else, в которой будет счетчик
count сбрасываться на 0.

0

найти в массиве самую длинную последовательность из стоящих подряд элементов (вывести значение первого элемента и последнего и номера первого и последнего элементов последовательности)- текст изначально неправильно написала. пожалуйста, напишите мне именно сам код программы

Добавлено через 2 минуты
по поводу пункта 1: если последовательность 2222456711, то "да" должно выводиться только при n=4 и n=2,а при n=3 -нет.можете также написать код,используя мой каркас?

Добавлено через 13 часов 8 минут
подряд стоящие(123) допустим: 123567891011. выввод: : 5, его индекс 4, 11, его индекс 10

Добавлено через 1 час 15 минут
echs, найти в массиве самую длинную последовательность из стоящих подряд элементов (вывести значение первого элемента и последнего и номера первого и последнего элементов последовательности)- текст изначально неправильно написала. пожалуйста, напишите мне именно сам код программы/ подряд стоящие(123) допустим: 123567891011. вывод: : 5, его индекс 4, 11, его индекс 10
Помогите,пожалуйста, оч срочно надо)))

1

Sverhrazum22
Эта часть кода проверена на массиве x()
kmax - максимальная длина последовательности чисел
max - это элемент в этой последовательности
i1 - индекс начала последовательности
i2 - индекс конца последовательности

1

echs, я немножко исправила текст(ошиблась) нужно не равные, а идущие подряд :

Сообщение от Sverhrazum22 123567891011. вывод: : 5, его индекс 4, 11, его индекс 10

0

Sverhrazum22
Все нормально. Это исправление относится
только к условному оператору. А весь остальной
код остается без изменений.

0

echs, а как в таком случае выводить и первый,и последний элемент самой длинной последовательности?

Добавлено через 41 минуту
echs, в старом коде идет вывод последнего элемента,а как добавить еще и вывод первого?

0

Sverhrazum22
Первый элемент, точнее его индекс, надо сохранить
еще до входа в цикл.

0

echs, первый элемент же не всего массива, а только самой длинной последовательности

Добавлено через 4 минуты
echs,

Сообщение от Sverhrazum22 123567891011. вывод: : 5, его индекс 4, 11, его индекс 10

Добавлено через 12 минут
echs, т.е. я делаю еще до цикла min=x(0)?

Добавлено через 2 минуты
echs, а как мне его потом изменять : Dim x() As Integer = {1, 2, 3, 4, 6, 7, 8, 9, 10, 11}
мне нужно,чтобы для такого к примеру массива код работал,а он ,увы, не работает.здесь максимальная последовательность:6,7,8,9,10,11

0

Sverhrazum22
Да, именно так...

0

echs, но код же ваш не работает с этим примером

Сообщение от Sverhrazum22 Dim x() As Integer = {1, 2, 3, 4, 6, 7, 8, 9, 10, 11}

.неправильно определяется максимальная последовательность, она по-прежнему 1234

Добавлено через 1 минуту
echs, Dim x() As Integer = {1, 2, 3, 5, 6, 7, 8, 9, 10, 11}
Dim k, kmax, max, min, i1, i2 As Integer
k = 1
max = x(1)
For i = 0 To UBound(x) - 1
If x(i + 1) = x(i) + 1 Then
k = k + 1
Else
If kmax < k Then
kmax = k
max = x(i)
i1 = i - k + 1
i2 = i
End If
k = 1
End If
Next
Console.WriteLine("max =" & max)
Console.WriteLine("i1 =" & i1 + 1)
Console.WriteLine("i2 =" & i2 + 1)
Console.WriteLine("min =" & min)
Console.ReadLine()

Добавлено через 23 минуты
echs, моя просьба: в обеих задачах (еще множества с пересечением и объединением) сделайте мне просто код и все, чтобы он работал с любыми(!) примерами. буду благодарна

Добавлено через 1 час 32 минуты
echs, Dim x() As Integer = {1, 2, 3, 4, 6, 7, 8, 9, 10, 11}
Dim k, kmax, max, min, i1, i2, i As Integer
k = 1
max = x(1)
min = x(0)
For i = 0 To UBound(x) - 1
If x(i) + 1 = x(i + 1) Then
k = k + 1
Else
If kmax < k Then
kmax = k
max = x(i)
min = max - k + 1
i1 = i - k + 1
i2 = i
End If
k = 1
End If
Next
Console.WriteLine("max =" & max)
Console.WriteLine("i1 =" & i1 + 1)
Console.WriteLine("i2 =" & i2 + 1)
Console.WriteLine("min =" & min)
Console.ReadLine()
неправильно вот так работает.не знаете, в чем ошибка?

Добавлено через 43 секунды
echs, то есть он не считает до последнего элемента, считает ток до предпоследнего,но если делать ubound(x), то вылетает с ошибкой

Добавлено через 51 минуту
echs, спасайте, уважаемый echs!!!

Добавлено через 29 минут
echs, я дописала код. спасибо вам большое!!! помогите со множествами а и б, пожалуйста!!

0