Pascal .заменить 1-й элемент одномерного массива - вопрос №84989251 от Teacher991 03.01.2020 06:10

Question

Информатика: Pascal .заменить 1-й элемент одномерного массива на среднее значение его элементов.

Teacher991 · Answer

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin
var a:=1.0;
var n:=readinteger('n=');
var mas:=ArrRandomReal(n,-99,99);

var h:=mas.Select(t->round(t*100) /100).ToArray; h.Println;
for var i:=0 to n-1 do
a:=a*h[i];
a:=a*(1/n);

h[0]:=a;

writeln('среднее неометрическое =',a);
h.println;

end.
Pascal .заменить 1-й элемент одномерного массива на среднее значение его элементов.

Pascal .заменить 1-й элемент одномерного массива на среднее значение его элементов.