// PascalABC.NET 3.3, сборка 1573 от 04.11.2017 // Внимание! Если программа не работает, обновите версию!
a)
begin var (a,b):=ReadReal2('Введите через пробел два числа:'); if a>b then Writeln('Первое число больше второго') else if b>a then Writeln('Второе число больше первого') else Writeln('Числа равны') end.
b)
begin var (a,b):=ReadReal2('Введите через пробел два числа:'); if a<b then Writeln('Первое число меньше второго') else if b<a then Writeln('Второе число меньше первого') else Writeln('Числа равны') end.
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.