Что такое текстовый процессор ? как его можно записать единичным именем?

Question

Информатика: Что такое текстовый процессор ? как его можно записать единичным именем?

мирали3 · Accepted Answer

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.

n = 10
массив:
0.165 0.133 0.134 0.190 0.151 0.132 0.187 0.028 0.021 0.017
среднее геометрическое: 0.0854754255570728
меньше: 3 равно: 0 больше: 7

MOGZ ответил