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

[2517]

В массиве N, состоящего из 26 элементов найти наименьший элемент и заменить его значением произведения всех элементов, следующих после него.

задача на Паскале.

Как найти наименьший элемент массива - это понятно, а вот вторую часть задачи не пойму как сделать.

[Alex11223]

Кроме значения элемента надо находить его индекс (в другую переменную).
и потом что-то вроде:

s:=1;
if minind+1 >= 26 then writeln что-то и т.п. //если это последний или предпоследний элемент массива
else
   for i:=minind+1 to 26 do
      s:=s+s*a[i];

[Serge_Bliznykov]

Alex11223, +1

только в пример кода вкралась досадная опечатка!
в произведении элементов не надо ничего суммировать!

2517
примерно так:

uses Crt;
const N = 26;
var M : array[1..N] of extended;
    P  : extended;
    i, MinIndex : integer;
begin
   ClrScr; {очистим экран}

   {заполним массив сл.числами от 1 до 10}
   Randomize;
   for i:=1 to N do M[i] := Random(10)+1;

   {выведем массив}
   for i:=1 to N do Write(M[i]:1:0,' ');
   WriteLn;

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

   WriteLn('Найдено минимальное значение - M[',MinIndex,'] = ', M[MinIndex]:1:0 );

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

   WriteLn('Произведение элементов после минимального равно ',P:1:0);

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

   {выведем изменённый массив}
   WriteLn('Массив после обработки:');
   for i:=1 to N do Write(M[i]:1:0,' ');
   WriteLn;

   ReadLn; {ожидание нажатия ENTER 
                   - чтобы посмотреть результаты вывода программы}
end. {КОНЕЦ!}

[2517]

вот спасибо Вам всем огромное и человеческое!

[Sasha_Smirnov]

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

В массиве N, состоящего из 26 элементов...

N состоит из 26 элементов?!

А серьёзно — надо бы ещё ситуацию переполнения обработать (усёк!).

[Alex11223]

N состоит из 26 элементов?!

Видимо N это имя массива.

Какого переполнения?

[2517]

Да, N - это имя массива.
Про переполнение ни слова.

[Mad_Cat]

2Serge_Bliznykov
а если Minindex =26
то после выполнения

 P := 1;
   for i:=MinIndex+1 to N  do P := P*M[i];

p =1; что неверно!должно быть P=0; так что
я бы добавил

if MinIndex = 26 then p:=0;

[Sasha_Smirnov]

Да это я на Integer загляделся!

Extended (занимает 10 байт, диапазон от 3.4E-4932 до 1.1E+4932 по модулю, точность19-20 значащих цифр).

При таком размахе, конечно, переполнение маловероятно.

[Serge_Bliznykov]

p =1; что неверно!должно быть P=0; так что

ну, это спорно...

я бы тогда предложил сделать так:

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

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

А серьёзно — надо бы ещё ситуацию переполнения обработать.

Красавчик! В корень зрите! Отлично!
А я прошляпил... в первом варианте (к счастью, он пробыл на форуме всего пару минут, поэтому его вряд ли кто-то успел увидеть) я массив сделал целочисленным.
и тут же улетел в переполнение...
А что Вы хотите, 10 в степени 15 ( это в среднем примерно) - это весьма большое число. и в Logint явно не лезет.
А если числа сделать не от 1 до 10, а до 1000 (а можно и более)... да ещё минимальное окажется первым.. 1000 ^ 25 - число с 75 нулями....
впрочем, используемый в примере тип данных extended имеет диапазон значений

extended 3.4e-4932..1.1e4932 19-20 0

10 в степени 4932 (этого должно хватить, если, конечно, не делать исходные числа больше 10 в двухсотой степени