Вопрос по информатике:
В массиве из 8 целых чисел переставить максимальный элемент на первое место, а элементы с первого до максимального сдвинуть на одну позицию вправо.БЕЙСИК!!!
Пожаловаться
- 18.01.2015 20:28
- Информатика
- remove_red_eye 5247
- thumb_up 7
Ответы и объяснения 1
Microsoft QBasic 1.0
DIM n AS INTEGER
CLS
INPUT "n=", n
REDIM a(1 TO n) AS INTEGER
RANDOMIZE TIMER
imax = 1
FOR i = 1 TO n
a(i) = INT(30 * RND)
IF a(i) > a(imax) THEN imax = i
PRINT a(i);
NEXT
PRINT
t = a(imax)
FOR i = imax - 1 TO 1 STEP -1
a(i + 1) = a(i)
NEXT
a(1) = t
FOR i = 1 TO n
PRINT a(i);
NEXT
Пример
n=15
5 16 10 18 11 12 10 26 27 22 20 5 16 18 4
27 5 16 10 18 11 12 10 26 22 20 5 16 18 4
DIM n AS INTEGER
CLS
INPUT "n=", n
REDIM a(1 TO n) AS INTEGER
RANDOMIZE TIMER
imax = 1
FOR i = 1 TO n
a(i) = INT(30 * RND)
IF a(i) > a(imax) THEN imax = i
PRINT a(i);
NEXT
t = a(imax)
FOR i = imax - 1 TO 1 STEP -1
a(i + 1) = a(i)
NEXT
a(1) = t
FOR i = 1 TO n
PRINT a(i);
NEXT
Пример
n=15
5 16 10 18 11 12 10 26 27 22 20 5 16 18 4
27 5 16 10 18 11 12 10 26 22 20 5 16 18 4
Пожаловаться
- 19.01.2015 04:33
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы