Ominide 50 punti

ORDINE E STATISTICA

program ordinare_20_numeri_in_ordine_crescente;
uses crt;
(*ordinare in ordine crescente 20numeri.calcolare media,varianza,scarto quadratico medio*)
var A: array [1..20] of integer;
J,K,X:integer;
SOMMA,MEDIA,mX,VARIANZA,SQM:real;
begin
clrscr;
writeln (' ');
for J:=1 to 20 do
begin
write('Introdurre numero intero A',J,'=');
readln(A[J]);
end;
for J:=1 to 19 do
for K:=J+1 to 20 do
if A[J]>A[K] then
begin
X:=A[K];
A[K]:=A[J];
A[J]:=X
end;
writeln ('i numeri in ordine crescente sono:');
for J:=1 to 20 do
write(A[J],' ');
writeln (' ');
SOMMA:=0;
for J:=1 to 20 do
SOMMA:=SOMMA+A[J];
MEDIA:=SOMMA/20;
WRITELN (' ');
writeln('La media degli elementi Š m=',MEDIA:5:2);
mX:=0;
for J:=1 to 20 do
begin
mX:=mX+sqr(A[J])
end;
VARIANZA:=(mX/20)-sqr(MEDIA);
SQM:=sqrt(VARIANZA);
writeln ('La varianza Š var=',VARIANZA:5:2);
writeln ('Lo scarto quadratico medio Š sqm=',SQM:5:2);
readln
end.

Registrati via email