Составить программу массива: Найти наименьшее из четных и произведение нечетных чисел, входящих в последовательность

[kolia_y]

Дано натуральное число n, действительные числа аn,...,аn. Найти наименьшее из четных и произведение нечетных чисел, входящих в последовательность а1,...,аn.

За помощь буду благодарен!!!

[BDA]

Показывайте свои наработки. Какие у Вас конкретно вопросы?

[Serge_Bliznykov]

действительные числа аn,...,аn. Найти наименьшее из четных и произведение нечетных чисел

Опять очередной преподаватель отличился?!
Условия задачи НЕ КОРРЕКТНЫ!
Понятие "чётности"/"нечётности" допустимо только для ЦЕЛЫХ чисел.

Всё остальное (если допустить, что даны всё таки целочисленные значения) очень просто. При чём лёгко решается вообще без массива (в процессе ввода чисел). Но, если стоит задача использовать массив, то можно и массив использовать.
И, если уж использовать массив, то, при поиске минимального из чётных рекомендую запоминать не саму величину, а индекс найденного минимума.
Для накопления суммы можно действительно использовать переменную действительного типа (произведение чисел очень быстро растущая величина. см. для сравнения факториал)
Выглядеть основная часть программы может примерно так:

 IndexMin := -1; {ещё нет чётных элементов, берём заведомо несуществующий индекс}
 MultiPlier := 1.0 ; {начальное присвоение накопителя произведения. переменная MultiPlier действительная }

 for i:=1 to N do
   if odd(A[i]) then MultiPlier := MultiPlier * A[i] {если нечётное число}
   else begin {чётное число}
      if (IndexMin = -1) then {не было ещё чётных чисел, поэтому индекс первого из чётных чисел
                                       запоминаем в качестве индекса минимального...}
             IndexMin := i
      else  {были ранее чётные числа. сравним текущее число с ранее найденным минимальным}
          if A[i]< A[IndexMin] then  IndexMin := i;  {если меньше, запоминаем его индекс}
  end;

Или, если непонятно, что я выше написал, тогда давайте начнём с того, что Вы покажете свой код, как Вы вводите значения массива...

[Evorty]

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

Дано натуральное число n, действительные числа аn,...,аn. Найти наименьшее из четных и произведение нечетных чисел, входящих в последовательность а1,...,аn.

За помощь буду благодарен!!!

Впринципе решается все очень просто:

var Mas: array[1..50] of integer; {Объявляем массив чисел}
     i, min, res, first, a, b: integer;
begin
     randomize; {В случае с рандомными числами запускаем генератор случайных чисел}
     min := 100; {Задаем минимальное число}
     res := 0; {Пока что у нас произведение равно 0}
     first := 1; {То есть у нас пока что умножение не проводилось}
     a := 0; {Счетчик четных чисел}
     b := 0; {Счетчик нечетных чисел}
     for i := 1 to 50 do
       begin
            Mas[i] := random(100) + 1; {Заполняем массив случайными числами от 1 до 100}
            Write(Mas[i], ' '); {И тут же их выводим в строку}      
       end;   
     for i := 1 to 50 do
       begin
            if Mas[i] mod 2 = 0 then {Признак четности}
            begin
                 if Mas[i] < min then min := Mas[i]; {Если значение меньше минимума, то делаем его минимумом} 
                 a := a + 1; {Повыщаем кол-во четных чисел на 1}         
            end
            else
            begin
                 if first = 1 then {Если умножение еще не производилось}
                    begin
                         res := res + Mas[i]; {то прибавляем к произведению значение ячейки массива i}
                         first := 2; {Говорим, что первое нечетное число найдено}
                    end
                 else
                    begin
                        res := res * Mas[i]; {Если же умножение уже проводилось, то умножаем}
                        b := b + 1; {Увеличиваем кол-во нечетных чисел на 1}
                    end;
            end;  
       end;  
       writeln('Четных чисел в массиве ', a); {Выводим результаты}
       writeln('Нечетных чисел в массиве ', b);
       writeln('Наименьшее из четных ', min);
       writeln('Произведение четных равно ', res); 
readln;
end.

Сорри за такое кривое оформление....
Не проверял, но должно работать
Не стал запариваться насчет нуля, доработать можно

P. S. Не надо агра, если что-то не так

[Serge_Bliznykov]

Evorty, если не секрет, чем не устроил мой код, приведённый выше?
То, что они слишком простой?

[Evorty]

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

Evorty, если не секрет, чем не устроил мой код, приведённый выше?
То, что они слишком простой?

Против вашего кода ничего не имею, но он может быть не всегда понятен новичкам. Я же постарался написать так, как написал бы любой новичок, максимально все разжевав и почти положив в рот.

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

Выглядеть основная часть программы может примерно так

Плюс, как видите у меня здесь не основная часть программы, а вся программа от начала и до конца
Когда то ходил на курсы по Pascal. Дак вот, там именно так и учили все разжевывать. А так же я мог позабыть, как с ним работать, т. к. работаю в среде ООП Delphi По-этому и говорю, что работать должно, но не уверен. Протестить не могу, т. к. у меня нет хотябы элементарного Free Pascal'я, а качать ради одного раза мне лееньь

[Poma][a]

Протестить не могу, т. к. у меня нет хотябы элементарного Free Pascal'я, а качать ради одного раза мне лееньь

Вас спасет или консольнйы режив в Дельфи, либо ideone.com

[Stilet]

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

Жаль что автору это не поможет по причине, указанной Сержем.

[Evorty]

Сообщение от Poma][a

Вас спасет или консольнйы режив в Дельфи, либо ideone.com

Тааакк, что-то я не подумал