Элемент массива с максимальным кол-вом чётных цифр.

[Faxford]

Нужно найти элелемент массива с максимальным количеством чётных цифр. Вывести его и его индекс. Индекс вроде выводится нормально, а вот сам элемент не получается.

unit Unit4;

interface
uses
  SysUtils, Unit2;

  function mass_s(var a:arr; count:integer; el_s:integer):integer;
implementation

function mass_s(var a:arr; count:integer; el_s:integer):integer;
var
  i,max,m,elem:integer;
begin
  count:=0;
  elem:=a[1];
  max:=0;
  for i:=1 to el_s do
    begin
      count:=0;
      while a[i]<>0 do
        begin
          if not odd(a[i] mod 10) then
            inc(count);
          a[i]:=a[i] div 10;
        end;
      if count>max then
        begin
          max:=count;
          m:=i;
          elem:=a[m];
        end;
    end;
  result:=elem;
end;

end.

Сам массив вроде нормальный. :)

[Serge_Bliznykov]

дык! Вы же элементы массива зануляете в процессе подсчёта цифр!

заведите дополнительную переменную и её и терзайте..
вместо

while a[i]<>0 do
        begin
          if not odd(a[i] mod 10) then
            inc(count);
          a[i]:=a[i] div 10;
        end;

напишите так:

Num :=  a[i];
while Num<>0 do
        begin
          if not odd(Num mod 10) then
            inc(count);
          Num:=Num div 10;
        end;

но это ещё полбеды.
Вам по условиям задачи надо и индекс этого элемента вывести!
А где Вы это делаете?!!

а что это за фокусы с переменной m ???!

          m:=i;
          elem:=a[m];

Вы же её больше нигде не используете!
Так почему бы не сделать просто

elem:=a[i];

ну и последнее.
А зачем Вы возвращаете переменную Count - там будет значение равное количеству чётных чисел только в ПОСЛЕДНЕМ элементе массива! Оно Вам надо?!?!
а вообще, я бы из функции возвращал не значение нужного элемента, а его индекс. А значение по индексу легко получить где угодно!

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

{функция вернёт номер элемента массива с максимальным числом чётных цифр}
function mass_s_index(a:arr; el_s:integer):integer;
var
  i, maxCount, Num, count, s_index : integer;
begin
  maxCount:=0;
  s_index := -1; 
      {результат -1 будет означать, что таких чисел в массиве вообще нет!}

  for i:=1 to el_s do
    begin
      count:=0;
      Num := a[i];
      while Num<>0 do
        begin
          if not odd(Num mod 10) then
               inc(count);
          Num:=Num div 10;
        end;
      if count>maxCount then
        begin
          maxCount:=count;
          s_index := i;
        end;
    end;
  result:= s_index;
end;

[Faxford]

Спасибо, выручил. :)