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

37 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 Dizideki Tek Sayıların Adetini Bulma Örneği

Delphi Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği

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

Delphi Bir Dictionary'i Filtreleyip Yeni Bir Dictionary Yaratma Ö ...

Delphi Bir Sayının Asal Sayı Olup Olmadığını Bulma Örneği