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

"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.



İlginizi Çekebilir

Delphi Dictionary Key Value Değerlerini Ters Çevirmek

Delphi Bir Dictionary'i Filtreleyip Yeni Bir Dictionary Yaratma Ö ...

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

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

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