[закрыть]

Регистрация на сайте

Если вы уже зарегистрированы, пожалуйста войдите на сайт!
Email:
Имя (ник):
Пароль:
Повторите пароль:
  
Защита от роботов:

Плохо видно


Помогите программу доделать!!!

Задан линейный массив. Осуществить в нем сдвиги по следующим правилам: циклически сдвинуть на 2 элемента влево. Я все сделала,работает. Но препод требует чтоб я вставила константу и чота где то исправила. С этим у меня беда. Переделайте плз!! Добавлено 1 день назад var a:array[0..9] of integer; i,j,b:integer; begin writeln('vvedite chisla'); for i:=1 to 9 do read(a); for i:=1 to 2 do begin b:=a[1]; for i:=1 to 8 do a:=a[i+1]; a[9]:=b; end; for i:=1 to 9 do write(a,''); readln; end.



Знаю верный ответ Найти ответ на вопрос



Ключевые слова: Задан линейный массив.Осуществить в нём сдвиги по следующим правилам,

1 ответ к вопросу “Помогите программу доделать!!!”

  • ответ #0 / ответил: Служба поддержки

    • ответ #1 / ответил: adpecok
      Полезный ответ? Да (0) / Нет (0)


      Поставь вначале перед var строчку: Cоnst n=9; А в тексте 9 замени на n. Это делается для того, чтобы при необходимости изменения размерности массива не менять 9 на другое значение по всему тексту программы, а изменить его один раз в разделе объявления констант, приравняв n другому числу (цифре). В цикле for, где конечное значение равно 8, поставь (n-1) и по аналогии - в других местах.



      Ответить

Ответить на вопрос


Не хотите вводить проверочный код? Пройдите регистрацию!
Проверочный код:

обновить картинку

Статистика

  • © 2010-2011. Копирование материалов с сайта строго запрещено
  • Не нашли ответ? задай свой вопрос