1)Если n всегда равно 100
var x: array [1..100] of real;
k,n:integer;
M,d: real;
begin
n:=100;
writeln('введите Xk');
for k:=1 to n do readln(x[k]);
for k:=1 to n do m:=m+x[k];
m:=m/n;
for k:=1 to n do d:=(x[k]-m)*(x[k]-m);
d:=sqrt(d/(n-1));
writeln('M=',m,' ','d=',d);
end.
2)При любых n>1
var x: array [1..100] of real;
k,n:integer;
M,d: real;
begin
writeln('введите n');
readln(n);
writeln('введите Xk');
for k:=1 to n do readln(x[k]);
for k:=1 to n do m:=m+x[k];
m:=m/n;
for k:=1 to n do d:=(x[k]-m)*(x[k]-m);
d:=sqrt(d/(n-1));
writeln('M=',m,' ','d=',d);
end.
Можно выбрать любую фигуру и изменить узлы и рисуй что хочешь: звездочки,рыбок,домики....
Объяснение:
Также для рисования фигур и линий можно использовать кнопку “Фигуры”, расположенную на вкладке меню “Главная”. Если вы используете PowerPoint в качестве альтернативы программе MS Paint или другой графической программе, то созданные слайды при сохранении можно экспортировать в целый ряд форматов файлов изображений.
Чтобы изменить фигуру, передвиньте черные узлы изменения. Белые квадратные узлы изменения используются для изменения кривизны линий между двумя черными узлами изменения.
var
a, h: real;
begin
writeln('Введите длину стороны и длины проведённой к ней высоты:');
readln(a, h);
writeln('Площадь треугольника равна ', a * h / 2)
end.
Тоже самое, но в немного осовремененном виде (у меня запускается на PascalABC.NET 3.3 сборка 1531, если у вас не работает - обновите программу):
begin
var (a, h) := ReadReal2('Введите длину стороны и длины проведённой к ней высоты:');
println('Площадь треугольника равна', a * h / 2);
end.