girilen sayilarin ortalamasinin alinmasi

program ortalama1;

uses

crt;

var

sayi : real;

ortalama: real;

toplam:real;

sayac:integer;

cevap:char;

begin

sayac:=1;

toplam:=0;

repeat

writeln('sayigirin');

readln(sayi);

sayac:=sayac+1;

toplam:=toplam+sayi;

writeln(' devam etmek icin entera basiniz // islemden cikmak icin h tusuna basiniz');

readln(cevap);

until cevap='h';

ortalama:= toplam/sayac;

writeln(sayac:5, 'adet sayi girdiniz');

writeln('ortalamaniz', ortalama:5:2);

readln;

end.