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.