2. 123689
3. 1ж2а3д4в
4. 987
5. 238
6. в
7. 423156
8. в
9. 720
10. 156
var i,n,p:integer;
a:array[1..10000] of integer;
begin
p:=1;
readln(n); {Вводится количество элементов массива}
for i:=1 to n do begin readln(a[i]); p:=p*a[i]; end; {Вводится каждый элемент массива и умножается на произведение ранее введённых}
writeln(exp(ln(p)/n)); {Вывод среднего арифметического - корень степени n из произведения всех элементов массива}
end.
Program p77v;
var
p:real;
i,n:integer;
begin
Write('n='); Read(n);
p:=1;
for i:=1 to n do p:=p*(1+1/(i*i));
Writeln('П=',p)
end.
<u>Пример</u>
n=10
П=3.34284711657368
Во вложении дан контрольный пример.
Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) - во вложении.
1. Делать разминку для глаз каждые полчаса.
2. Периодически вставать из-за стола и разминать мышцы.
3. Держать спину прямо