Задача на поиск минимального элемента в массиве

[2517]

Люди. Помогите ещё раз!
Вы слишком сложное решение написали. Нужно поскромнее.
Задачу повторю:
"В массиве N, состоящего из 26 элементов найти наименьший элемент и заменить его значением произведения всех элементов, следующих после него."
Пример нахождения минимального элемента массива я прикрепил (на изображении), а вот как в него вписать "замену наименьшего элемента массива произведением всех элементов следующих после него" ?

[Serge_Bliznykov]

2517
1) то, что Вы приводите не является решением ВАШЕЙ задачи (посмотрите на размерность массива, например.

2) нормальное, простое решение приведено мной в пост #3
и я не понимаю, что сложного в 6-ти строчек кода с 8-мью простыми операторами?!

  {найдём минимальный элемент}
   MinIndex := 1; {для начала считаем, что минимальный элемент - первый.}
   for i:=2 to N do
     if M[i]<M[MinIndex] then MinIndex := i;

   {вычислим произведение всех элементов после минимального }
   P := 1;
   for i:=MinIndex+1 to N  do P := P*M[i];

   {заменим минимальный элемент произведением}
   M[MinIndex]  := P;

разбирайтесь.
как в данном примере находится произведение всех элементов, после найденного минимального...
и как "вписывается в него" значение произведения тоже наглядно видно..

p.s. Вы ожидаете другого - просто решения?!
Зря. Изучайте основы языка программирования. Больше пользы будет!

[Mandrivnyk]

Люди. Помогите ещё раз!
Вы слишком сложное решение написали. Нужно поскромнее.

о_О
что там сложного?
(1) сначала находится _индекс_ минимального элемента (а не сам минимальный элемент), потом (2) высчитывается произведение элементов после него и (3) записывается вместо минимального элемента.
Так вот, чтобы (2) и (3) было проще реализовать, используется именно индекс.
Все остальное в тексте программы -- комментарии, заполнение массива случайными числами и вывод на экран.


Update
чОрт...
и снова меня опередили -))