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

"Delphi" Programlama dilinde "Bir Dizi Kullanarak N Sayının Toplamını Bulma Örneği" ile ilgili kod örneği aşağıda verilmiştir.

program Main;

uses
  SysUtils;

var
  num, n, x, sum: Integer;
  numbers: array of Integer;

begin
  Write('Kaç tane sayı gireceksiniz: ');
  ReadLn(num);
  SetLength(numbers, num);
  sum := 0;

  for n := 0 to num - 1 do
  begin
    Write('Sayı giriniz: ');
    ReadLn(x);
    numbers[n] := x;
  end;

  for n := 0 to num - 1 do
  begin
    sum := sum + numbers[n];
  end;

  WriteLn('Dizideki tüm elemanların toplamı: ', sum);
  ReadLn;
end.



İlginizi Çekebilir

Delphi Üç Kenarı Verilen Bir Üçgenin Alanını Bulma

Delphi Bir Stringi Ters Çevirmek

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

Delphi Dictionary'deki Değerler İle Listenin Elemanlarını Eşleşti ...

Delphi 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği