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.

Tüm forumdan rastgele konular:

  • » Salih Dursun, Hakeme Kırmızı Kart...
  • » Feyzioğlu'ndan Bozdağ'a yanıt
  • » Tarım işçilerine Atatürk’lü mesaj
  • » Rezalet!! 2 AKPli tecavüzden...
  • » Bu kadar Toyota'yı IŞİD'e kim verdi
  • » Annesi Tuncay Güney'i anlattı(!)
  • » Köln'de Erdoğan protestoları başladı
  • » Yeni Atatürk filmi yolda!
  • » Evren'in kızı babasına sahip çıktı
  • » ''Kalbinizi seviyorsanız fast-food...

Aynı kategoriden rastgele konular:

  • » BMP Dosyalarının Pascal İle Gösterilmesi
  • » copyy
  • » Pascal Programının Genel Yapısı
  • » While-Do Döngüsü
  • » For...Do Dongusu
  • » If...Then...Else
  • » Sayaç
  • » Pascalda Dizi Kullanımı
  • » Kayan Yazı
  • » Case...Of