обмен чисел в паскале

[dragodar]

всем привет! у меня появилась проблема при обмене чисел в массиве проблема состоит в том что программа непереставляет числа в массиве ( нужно переставить местами максимальное и минимальные числа) шлю всю прогу надеюсь что ктото обьяснит мне в чём ошибка. заранее спасибо!

[alexander13]

Ммм.. Дело в области видимости переменных. У Вас объявлена глобальная переменная maxindex и точно такая же переменная в функции Max. Соответственно, функция Max выводит правильный индекс максимального элемента, но в основной программе, при вызове функции Change, используется уже глобальная переменная maxindex, значение которой 0. Аналогично с переменной minindex.
Соответственно у Вас переставляется нулевой элемент на свою же позицию.

upd. Еще не понимаю, почему у Вас

maxindex:=i+1;

Должно быть

maxindex:=i;

Аналогично, для minindex.

[dragodar]

maxindex:= i+1 потому что я начинал отсчёт с нуля

[dragodar]

так впринципе понял но всё же как изменить, вернее какую переменную тогда ставить (потому что при удалении одной из них прога неработает)

[alexander13]

В смысле, Вы начинали? Он там и так с нуля начинается. Уберите +1, удалите объявления переменных из процедур и перенесите блок с глобальными переменными куда-нибудь повыше этих процедур. Это если не сильно заморачиваться. И все заработает.

[dragodar]

проверял если убрать +1 то индекс будет на 1 меньше чем надо

[alexander13]

Сообщение от dragodar

проверял если убрать +1 то индекс будет на 1 меньше чем надо

Нет, не будет. Посмотрите на вывод программы. Если Вы не уберете 1, то она поменяет местами 0 и 8 что ли, я не помню. А должна менять 44 и 0.

[dragodar]

всё сделал спасибо обошёлся без снятия +1 у индекса просто при вызове change у каждого индекса добавил -1 но спасибо за помощь

[dragodar]

просто нам в универе надо сделать было якобы для удобства пользователя) вот поэтому и шёл +1