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

100 Okunma Delphi

"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.
Dizi Array Toplam Örnek Bulma Delphi

İlginizi Çekebilir

Delphi Bir Stringten İlk N Karakteri Kaldırma Örneği

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

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

Delphi Dikdörtgenin Alanını Hesaplama Örneği

Delphi Bir Sayının Faktöriyelini Bulma Örneği