program Esperimento;
const
NumeroRipetizioni = 20;
type
TipoRisultato = real;
TipoIndice = 1..NumeroRipetizioni;
TipoRisultati = array [TipoIndice] of TipoRisultato;
var
risultati : TipoRisultati;
i : TipoIndice;
soglia : TipoRisultato;
begin
writeln('Immetti ', NumeroRipetizioni, ' risultati (reali) !');
for i := 1 to NumeroRipetizioni do
read(risultati[i]);
soglia := 0;
for i := 1 to NumeroRipetizioni do
soglia := soglia + risultati[i];
soglia := 0.5 * (soglia / NumeroRipetizioni);
writeln;
writeln('Risultati inferiori a 50% della media (', soglia, '):');
for i := 1 to NumeroRipetizioni do
if risultati[i] < soglia then
writeln('risultato ', i:2, ': ', risultati[i])
end.