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

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

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


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

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

(visual basuc)

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

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

Sub mas()
Dim A(10) As Byte
makslim вне форума Ответить с цитированием
Старый 23.06.2015, 12: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, 15:32   #5
makslim
 
Регистрация: 23.06.2015
Сообщений: 3
По умолчанию

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

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

Опции темы


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840