Delphi Bir Dizideki Tek Sayıların Adetini Bulma Örneği

"Delphi" Programlama dilinde "Bir Dizideki Tek Sayıların Adetini Bulma Örneği" ile ilgili örnek kod aşağıda verilmiştir.

program Main;

{$APPTYPE CONSOLE}

var
  numbers: array[0..7] of Integer = (8, 3, 1, 6, 2, 4, 5, 9);
  count, i: Integer;

begin
  count := 0;

  for i := 0 to Length(numbers) - 1 do
  begin
    if numbers[i] mod 2 <> 0 then
    begin
      Inc(count);
    end;
  end;

  WriteLn('Dizideki tek sayı adeti: ', count);
end.



İlginizi Çekebilir

Delphi Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği

Delphi Bir Dizi Tam Sayının Ortalamasını Bulma

Delphi Santigrat Cinsinden Sıcaklığı Fahrenheit'e Çevirmek

Delphi Fibonacci Serisinde N'inci Terimi Bulma Örneği

Delphi Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği