برنامج لحساب مقاييس النزعة المركزية لعينة مدخلة

اكتب برنامج لحساب مقاييس النزعة المركزية لعينة مدخلة من النوع الحقيقي علما بأن حجم العينة لا يزيد عن 100

(أي أوجد المتوسط الحسابي و الوسط و المنوال)



program central;

uses wincrt;

var x:array[1..100]of real;

y:array[1..100]of integer;

xn,med,min,max:real;

n,i,j,k:integer;

begin

write('inputn=');

readln(n);

for i:=1 to n do

begin

write('x[',i,']=');

readln(x[i]);

end;

xn:=0;

for i:=1 to n do

xn:=xn+x[i];

xn:=xn/n;

writeln('mean=',xn);

if n mod 2=0 then

med:=(x[n div 2]+x[1+n div 2])/2

else

med:=x[(n+1) div 2];

writeln('median=',med);

for i:=1 to n do

begin

y[i]:=0;

for j:=1 to n do

if x[i]=x[j] then y[i]:=y[i+1];

end;

min:=y[1];

max:=y[1];

k:=1;

for i:=2 to n do

if y[i]
else

if y[i]>max then max:=y[i];

begin

max:=y[i];

k:=i;

end;

if min=max then

writeln('no mode')

else

writeln('mode=',x[k]);

end.