Delphi Bir Dizi Tam Sayının Ortalamasını Bulma

219 Okunma Delphi

"Delphi" Programlama dilinde "Bir Dizi Tam Sayının Ortalamasını Bulma" ile ilgili kod örneği aşağıdadır. 

program Main;

uses
  SysUtils;

var
  count, i, x: Integer;
  sum, avg: Real;

begin
  Write('Sayıların adetini girin: ');
  Readln(count);
  sum := 0;
  for i := 0 to count-1 do
  begin
    Write('Bir tamsayı girin: ');
    Readln(x);
    sum := sum + x;
  end;
  avg := sum / count;
  WriteLn('Ortalama: ', avg);
end.
Dizi Tamsayı Array Ortalama Sayı Delphi

İlginizi Çekebilir

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

Delphi İkinci Dereceden Bir Denklemin Köklerini Bulma Örneği

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

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

Delphi While Döngüsü İle 10 Sayının Ortalamasını Bulma Örneği