Var a: array of real; i,n,m,k,p: integer; s: real; begin write('n = '); readln(n); setlength(a,n); s:=1; randomize; writeln('массив:'); for i:=0 to n-1 do begin a[i]:=random(200)/1000; s:=s*a[i]; write(a[i]:5:3,' '); end; writeln; s:=power(s,1/n); p:=0; m:=0; k:=0; writeln('среднее геометрическое: ',s); for i:=0 to n-1 do begin if a[i]<s then inc(m); if a[i]>s then inc(k); if a[i]=s then inc(p); end; writeln('меньше: ',m,' равно: ',p,' больше: ',k); end.
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandomReal(10,-99,99);
var c:=mas.Select(t->round(t*100) / 100).ToArray; c.Println;
var b:=c.Min;
c[7]:=b;
c.Println;
end.
Program m2
begin
var n:=readinteger('Введите количество n=');
var (b,a,c):=(3,1,2);
var k:real:=0;
for var i:=1 to n do
begin
k:=k+b/(a*c);
b:=b+3;a:=a+1;
c:=c+2;
end;
Writeln('Сумма=',k);
end.
Program m3;
begin
var n:=readinteger('Введите количество n=');
var c:real:=0;
var b:=1;
for var i:=1 to n do
begin
c:=c+b**2;
b:=b+1;
end;
var y:=n*(n+1)*(2*n+1)/6;
if c=y then
writeln('тождество верно')
else writeln('тождество не верно')
end.