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

191 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 Üç Kenarı Verilen Bir Üçgenin Alanını Bulma

Delphi Bir Sayının Rakamlarının Toplamını Bulma Örneği

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

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

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