calcolo di media

esci algebraturbo.htm

program media1;
uses crt;
var conta,n,somma,totale:integer;
media:real;
begin
clrscr;
somma:=0;
write('indica quanti numeri da sommare?');readln(totale);
for conta:=1 to totale do
begin
write('scrivi numero intero<100 ');readln(n);
somma:=somma+n;
end;
writeln('somma numeri=',somma);
media:=somma/totale;
writeln('la media risulta:',media:8:2);
writeln('premi invio per proseguire');
repeat until keypressed;
clrscr;
end.