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

63 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 Döngü Kullanarak Fibonacci Serisi Yazdırma Örneği

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

Delphi Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği

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

Delphi İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği