|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
![]() |
|
Опции темы | Опции просмотра |
![]() |
#1 (permalink) |
Новичок
Регистрация: 01.11.2013
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
![]() Дан одномерный массив arrX(100) As Integer. Необходимо определить длину максимальной последовательности элементов, отсортированных по возрастанию. (Если весь массив отсортирован, то результат будет 101). |
![]() |
![]() |
![]() |
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно вы не обращали внимания, но на нашем форуме так же есть аналогичные темы Помогите решить задачку по C++ Помогите решить задачку в маткаде Помогите решить задачку! Помогите решить задачку по физике Помогите решить задачку в Visual Basic на массивы Помогите решить задачку |
![]() |
#2 (permalink) | |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
![]() Цитата:
Добавил проверку на случай если выпадет 100 чисел и все по возрастанию стоят, тогда выведет 101. Код:
IF N = PRED THEN PRED = PRED + 1 Код:
CLS RANDOMIZE TIMER DIM N N = 100 DIM ARRX(N) FOR I = 1 TO N ARRX(I) = INT(RND(I) * 100) PRINT ARRX(I); NEXT I DIM PRED DIM POSL PRED = 0 POSL = 0 FOR I = 2 TO N IF ARRX(I) >= ARRX(I - 1) THEN POSL = POSL + 1 IF ARRX(I) < ARRX(I - 1) AND POSL > PRED THEN PRED = POSL IF ARRX(I) < ARRX(I - 1) THEN POSL = 0 NEXT I IF PRED = 0 THEN PRED = POSL PRED = PRED + 1 IF N = PRED THEN PRED = PRED + 1 PRINT "OTVET"; PRINT PRED |
|
![]() |
![]() |
![]() |
#3 (permalink) |
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
![]()
CLS
RANDOMIZE TIMER DIM N N = 100 DIM ARRX(N) FOR I = 1 TO N ARRX(I) = INT(RND(I) * 100) PRINT ARRX(I); NEXT I FOR I = 1 TO N - тут возьми цикл от 0, а не от 1 |
![]() |
![]() |
![]() |
#4 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,774
Записей в дневнике: 71
Сказал(а) спасибо: 163
Поблагодарили 201 раз(а) в 85 сообщениях
Репутация: 74893
|
![]()
Все верно, по правилам синтаксиса элементы массива нумеруются с 0 по N, так что в массиве arrX[100] ровно 101 элемент
![]()
__________________
Убить всех человеков! |
![]() |
![]() |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
![]() |
Опции темы | |
Опции просмотра | |
|
|