[Bygaga]

Дана задача на Delphi:

Среди заданных чисел определить количество нечетных.

Помогите замутить программку plz

[Asinkrit]

Очень простая задача)

Код:

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: Пользуемся тегами!

[Bygaga]

Благодарю)