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

43 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 String İçindeki Sayıların Toplamını Bulma Örneği

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

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

Delphi Sayıların Geometrik Ortalamasını Bulma Örneği

Delphi Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek