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 Bir Stringten İlk N Karakteri Kaldırma Örneği

Delphi Stringin Tersten Okunuşu İle Aynı Olduğunu Kontrol Eden Ör ...

Delphi Bir Stringde Tam Sayılar Dışındaki Karakterleri Kaldırma Ö ...

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

Delphi Bir Stringin İlk Orta ve Son Karakterini Alma Örneği