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 Üç Kenarı Verilen Bir Üçgenin Alanını Bulma

Delphi Dictionary Key Value Değerlerini Ters Çevirmek

Delphi Bir Dizi Kullanarak N Sayının Toplamını Bulma Örneği

Delphi Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek

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