const
	maxn = 1000;
var
	mas : array [1..maxn] of real;
	average,k,l,sum : real;
	i,n : longint;
begin
	randomize;
	write('Vvedite kol-vo elementov N: ');
	readln(n);
	sum := 0;
	for i:= 1 to n do
	begin
		mas[i] := random(maxn);
		sum := sum + mas[i];
	end;
	average := sum / n;
	l := 0;
	for i:=1 to n do
	begin
		k := mas[i] - average;
		k := k*k;
		l := l + k;
	end;
	l := l / n;
	l := sqrt(l);
	writeln('dlya vektora iz ',n,' chisel: ');
	for i:=1 to n do
		write(mas[i]:0:0,' ');
	writeln;
	writeln('Srednee = ',average:0:3);
	writeln('Srednee kvadr otkl ot srednego = ',l:0:3);
	readln;
end.