PascaL ( SayıLarın OrtaLamasını ALma Programı )

PascaL ( SayıLarın OrtaLamasını ALma 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.

» PascaL ( KopyaLama Programı )
» PascaL ( SayısaL Loto Programı )
» PascaL ( DijitaL Saat Programı )
» PascaL ( KovaLamaca Oyunu Programı )
» PascaL ( Şifre BuLma Oyunu Programı )