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

201 Okunma Delphi

"Delphi" Programlama dilinde "Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği" ile ilgili kod örneği aşağıda verilmiştir. 

program Main;

{$APPTYPE CONSOLE}

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

begin
  largest := numbers[0];
  position := 0;

  for i := 0 to Length(numbers) - 1 do
  begin
    if numbers[i] > largest then
    begin
      largest := numbers[i];
      position := i;
    end;
  end;

  Writeln('En Büyük Sayı ' + IntToStr(largest) + ' ve pozisyonu ' + IntToStr(position));
end.
Döngü Dizi Büyük Sayı Bulma Delphi

İlginizi Çekebilir

Delphi Bir Listede Birden Çok Olan Elemanları Göstermek

Delphi Dictionary Key Value Değerlerini Ters Çevirmek

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

Delphi 1'den 100'e Kadar Sayı Toplam Örneği

Delphi Dört İşlem Yapan Örnek