Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 23.06.2015, 12:37   #1
makslim
 
Регистрация: 23.06.2015
Сообщений: 3
По умолчанию Visual Basic. Подсчитайте, каково наибольшее количество одинаковых элементов следуют подряд в массиве.

Здравствуйте. Помогите пожалуйста написать программу. Подсчитать, каково наибольшее количество одинаковых элементов следуют подряд в массиве.

(visual basuc)

Последний раз редактировалось Stilet; 23.06.2015 в 12:54.
makslim вне форума Ответить с цитированием
Старый 23.06.2015, 12:55   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Показать код ввода массива сможешь?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 23.06.2015, 13:12   #3
makslim
 
Регистрация: 23.06.2015
Сообщений: 3
По умолчанию

Sub mas()
Dim A(10) As Byte
makslim вне форума Ответить с цитированием
Старый 23.06.2015, 13:41   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Понятно. Не сможешь.
Код:
Dim a(10) as integer;
Dim i as integer;
Dim max,v,k as integer;

k=0
for i=0 to Len(a)-1
 Input a(i)
 if (i=0) or (a(i)=v) then
  k=k+1
 else
  if max<k then
   max=k
  end if
  k=0
 end if
 v=a(i)
next i
print max
Это с потолка. Не проверял.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 24.06.2015, 16:32   #5
makslim
 
Регистрация: 23.06.2015
Сообщений: 3
По умолчанию

спасибо помогло
makslim вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти наибольшее количество идущих подряд одинаковых символов KNIGT Помощь студентам 4 20.11.2014 15:28
исправить код Visual Basic. Задан массив. Определить, входит ли в него последовательность подряд идущих значений элементов 1,2,3. Настен@ Помощь студентам 7 22.12.2013 14:47
наибольшее количество идущих подряд цифр Alexandr- Помощь студентам 1 11.03.2013 23:02
В целочисленном массиве найти наиболее длинную цепочку одинаковых подряд стоящих элементов C++ Елена Погодина Помощь студентам 10 16.06.2011 22:33
В массиве из n элементов подсчитать количество четырёд идущих подряд одинаковых элементов ( Delphi7 ) Анастасья Помощь студентам 1 31.03.2011 19:23