sayıların ortalamasını alma

Konu: sayıların ortalamasını alma Salı Eyl. 08, 2009 2:18 pm

istediginiz sayıda girdiginiz sayıların ortalamasını almak için yazılmış bir program
var a,i:integer;
toplam,ortalama,b:real;
begin
write('kaç tane sayinin ortalamasini almak istiyorsunuz=');
readln(a);
toplam:=0;
for i:=1 to a do
begin
write(i,'.sayiyi giriniz='); readln(b);
toplam:=toplam+b;
end;
ortalama:=toplam/a;
writeln(a,'tane sayinin ortalamasi=',ortalama:10:2);
end.

» Kullanıcının isteği kadar sayının ortalamasını alma
» 1-5 sayıları arasında gırılen sayıların yuzdesi
» Windows'u Bekleme Konumuna Alma
» Pascalda Üs Alma,Üsleri Toplama
» SQL Server 2000'e Bağlantı Yapıp Rapor Alma