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

//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.

Информационным называют процесс, связанный с определёнными операциями (действиями) над информацией, в ходе которых может измениться содержание информации или её форма.
Виды информационных процессов
Среди всех информационных процессов можно выделить наиболее общие.

К ним относятся:

- получение,

- передача,

- хранение

- обработка информации.

Эти процессы являются базовыми.

Их выполнение порождает другие информационные процессы.

Так, например,

- получение информации может быть связано с её поиском, хранение — с накоплением;

- при передаче информации необходимо позаботиться о её защите от разрущающих воздействий.
Все процессы требуют той или иной формы представления информации, определяет которую процесс — кодирование. Он сопровождает все остальные процессы и является связующим звеном между ними.
Информационные процессы не изолированы, а протекают циклично в единстве и взаимосвязи друг с другом.

//длинная арифметика

begin

 var a := '123456789123456789';//ReadString();

 var b := '123456789123456789123';//...

 

 var l := Abs(a.Length - b.Length);

 var source := l*'0';

 

 if a.Length > b.Length then

     insert(source, b, 1)

 else

     insert(source, a, 1);

 

 var s := '';

 var mem := 0;

 

 for var i:=a.Length downto 1 do

 begin

   var c := a[i].ToDigit + b[i].ToDigit + mem;

   mem := c div 10;

   insert((c mod 10).ToString, s, 1)

 end;

 

 if (mem > 0) then insert('1', s, 1);

 

 s.Println;

end.