Еугйжг рз жзогзх жсдуг=<span> </span><span>вражда не делает добра
каждая буква в этих словах сдвинется на 3 назад в обычном алфавите
е=в
у=р
г=а
итд</span>
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.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
write(range(1,ReadInteger()).Sum());
end.
Прости,но это наверно глупый вопрос а ты в каком классе?