В массиве из 8 целых чисел переставить максимальный элемент ** первое место, а элементы с...

Question

В массиве из 8 целых чисел переставить максимальный элемент на первое место, а элементы с первого до максимального сдвинуть на одну позицию вправо.БЕЙСИК!!!

Answer 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

Comments

значит я не правильно написала,бейсик корый в екселе

---

простите глупого ученика

---

так может поможете,как правильно написать,она почти такая же получается,не понимаю,почему ошибку выдает

---

задала вопрос еще раз,попыталась максимально написать ,про ввод и вывод,не думаю,что корректно для вас,но как смогла