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 Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği

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

Delphi Bir Sayının 5'in Katı Olup Olmadığını Gösteren Örnek

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

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