Процедура! Опции

[Юля]

Помогите! С помощью процедуры нужно в одномерном массиве все элементы, стоящие после минимального, уменьшить на 10. Минимальный элемент я нашла, а вот уменьшить как-то не получается.

[Ozzя]

Одновременно с поиском мин. элемента сохраняйте его индекс.
Далее всё просто:

for i:=MinIndex to n do
  a[i]:=a[i]-10;

[volvo]

Оззя,

for i:=MinIndex + 1 to n do ...

В условии сказано:

стоящие после минимального

Сообщение отредактировано: volvo - 14.11.2007 21:11

[Ozzя]

Виноват.
Да, кстати, нет доп. условия на несколько минимальных элементов?

[Юля]

Доп. условия нет. Минимальный элемент должен быть один.

[Lapp]

Доп. условия нет. Минимальный элемент должен быть один.

Мне это нравится . Типа:
- У вас есть алкогольные напитки?
- Нету. У нас только водка.
Решительно так и с пониманием дела..

Извиняюсь за почти оффтоп..