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

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

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

Оззя,

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

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

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

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

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

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