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

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

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

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

Delphi Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği

Delphi Bir Stringin Ortadaki Üç Karakterini Bulma Örneği