[Bygaga]

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

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

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

[Asinkrit]

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

Код:

1 2 3 4 5 6 7 8 9 10

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]

Благодарю)