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

Ответы 6

  • так может поможете,как правильно написать,она почти такая же получается,не понимаю,почему ошибку выдает
  • Нужен VBA - делайте новый вопрос и указывайте язык VBA MS Excel. И, заодно, указывайте, откуда брать данные и куда выводить результат. PRINT в VBA отсутствует.
  • У меня данные генерировались случайным образом. Можно их вводить по одному в диалоге, можно сразу прочитать с листа Экселя, но надо указать тогда, в каких они ячейках. То же и с выводом.
  • задала вопрос еще раз,попыталась максимально написать ,про ввод и вывод,не думаю,что корректно для вас,но как смогла
    • Автор:

      carly7iaq
    • 6 лет назад
    • 0
  • Главное, чтобы другие поняли))
    • Автор:

      desmond
    • 6 лет назад
    • 0
  • Microsoft QBasic 1.0DIM n AS INTEGERCLSINPUT "n=", nREDIM a(1 TO n) AS INTEGERRANDOMIZE TIMERimax = 1FOR i = 1 TO n   a(i) = INT(30 * RND)   IF a(i) > a(imax) THEN imax = i   PRINT a(i);NEXTPRINTt = a(imax)FOR i = imax - 1 TO 1 STEP -1   a(i + 1) = a(i)NEXTa(1) = tFOR 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
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years