calcolo di media

esci algebraturbo.htm

program media_e_scarto;
uses crt,turbo3;

var INDICE: integer;
TEMPERATURA: array [1..12] of real;
SOMMA,MEDIA,SCARTO: real;
SX:char;
begin
clrscr;

{*** Legge i dati e li somma ***}

SOMMA := 0;

for INDICE := 1 to 12 do
begin
write ('Inserisci il valore: ');
readln (TEMPERATURA [INDICE]);
SOMMA := SOMMA + TEMPERATURA [INDICE]
end;


{*** Visualizza media, dati e scarto ***}

clrscr;
MEDIA := SOMMA/12;
writeln('Media=',MEDIA:0:2);
writeln;

for INDICE := 1 to 12 do
begin
write (TEMPERATURA [INDICE] :0:2);
SCARTO := TEMPERATURA [INDICE] - MEDIA;
writeln (SCARTO :16:2);
end ;
read(kbd,SX);
end.