Помогите! С помощью процедуры нужно в одномерном массиве все элементы, стоящие после минимального, уменьшить на 10. Минимальный элемент я нашла, а вот уменьшить как-то не получается.
Одновременно с поиском мин. элемента сохраняйте его индекс.
Далее всё просто:
for i:=MinIndex to n do
a[i]:=a[i]-10;
Оззя,
for i:=MinIndex + 1 to n do ...
Виноват.
Да, кстати, нет доп. условия на несколько минимальных элементов?
Доп. условия нет. Минимальный элемент должен быть один.