Лабы Паскаль / лабы 5 / L6_Z1_V7

program lab6_1;

uses crt;

const
n = 3;

var
ar : array [1..n] of real;
i : integer;
m , d :real;
begin
for i:=1 to n do begin
write('Vvedite X',i,': ');
readln(ar[i]);
end;
m := 0;
for i:=1 to n do
m:=m+ar[i]/n;
d := 0;
for i:=1 to n do
d:= d + (ar[i]-m)*(ar[i]-m) / (n-1);
d := sqrt(d);

writeln('M = ', m:3:5);
writeln('D = ', d:3:5);
readln;
end.