Rastgele üretilmiş ( 100 ) sayı aritmatik ortalaması

[burak1692]

Arkadaşlar rastgele üretilmiş 100 adet sayının (aralığı kendiniz seçiniz)aritmetik ortalamasını bulan program kodlarını yazabilirseniz sevinirim.Şimdiden teşekkürler.

[badkursat]

Şaka mı bu google'a yazsan bir milyon sonuç çıkar

Kod: Tümünü seç

var
   Toplam : real;
begin
   For Index := 1 To 100 Do
     Toplam := Toplam + Random(100);

   Showmessage(FloatToStr(Toplam/100));
end;

[mkysoft]

Verilen aralığın yarısı çıkar, standart dağılım gereği. Verilen kod göre 0,5