Показать сообщение отдельно
  #2  
Старый 28.11.2009, 16:16
Asinkrit Asinkrit вне форума
Местный
 
Регистрация: 29.10.2009
Сообщения: 446
Репутация: 271
По умолчанию

Очень простая задача)
Код:
function GetOddCount(const a:Array of Integer):Integer;
var
  i:Integer;
begin
  Result:=0;
  if (Length(a) > 0) then
    for i:=Low(a) to High(a) do
      if (a[i] mod 2) = 1 then
        Inc(Result);
end;
Admin: Пользуемся тегами!
Ответить с цитированием