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

41 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 Dizi Gerçek Sayının Çarpımını Bulma Örneği

Delphi Dizinin İlk ve Son Elemanının Aynı Olup Olmamasını Bulma Ö ...

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

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

Delphi Bir Stringin Ortadaki Üç Karakterini Bulma Örneği