незнаю как процедуру написать

[Serge_Bliznykov]

ой. ну тут же дел на 10 минут ровно!

const MaxSize = 10;
type 
  MyArraytype = array[1..MaxSize] of LongInt;

  function CountNoOdd(Num : longint) : integer;
  var Cnt : integer;
  begin
    Cnt := 0;
    while Num>0 do begin
      if Not Odd(Num mod 10) then Inc(Cnt);
      Num := Num div 10;
    end;
    CountNoOdd := Cnt
  end;

  procedure FindElementWintMaxDigit(A : MyArraytype; var IndexMax : integer);
  var i, MaxNoOddCnt : integer;
  begin
    IndexMax := 1;
    MaxNoOddCnt := CountNoOdd( A[1]);
    for i:=2 to MaxSize do
      if CountNoOdd( A[i] ) > MaxNoOddCnt then 
      begin
        IndexMax := i;
        MaxNoOddCnt := CountNoOdd( A[i] ); 
      end;
  end;

var 
  MyArray :   MyArraytype;
  i, iMax : integer;
begin
  Randomize;
  for i:=1 to MaxSize do begin
    MyArray[i] := Random(1000);  
    write(MyArray[i]:5);
  end;
  WriteLn;

  FindElementWintMaxDigit( MyArray, iMax);

  WriteLn('В массиве больше всего чётных цифр (',
              CountNoOdd( MyArray[iMax] ),') имеет элемент [',
             iMax:1,'] равный ',MyArray[iMax]:1);
  Readln;

end.