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

58 Okunma Delphi

"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.
Dizi Bulma Array Tek Sayı Delphi

İlginizi Çekebilir

Delphi Dört İşlem Yapan Örnek

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

Delphi 1'den N'e Kadar Olan Sayıların Toplamını Bulma Örneği

Delphi Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği

Delphi Dictionary Key Value Değerlerini Ters Çevirmek