Вычисления с хранением последовательности значений(Паскаль)

[Crycon]

Даны действительные числа а(1),...,а(20). Получить числа b(1),...,b(20), где b(i)- среднее арифметическое всех членов последовательностиа(1),...,а(20), кроме a(i){i=1,2,...,20}.
Пожалуйста побольше объяснения........

[Wild_klas]

Вот програмка, тут расщитано на 10 елементов, и заполняеться тот же массив.
Добавте еще один массив, и увиличте этот до 20.

Type mas=array[1..10] of real;

Const a:mas=(1,2,3,4,5,6,7,8,9,10);
Var
    b,i:integer;
    sum:real;

begin
  Sum:=0;
  For i:=1 to 10 do
   Write (' ',a[i]:2:0);
   Writeln;
   Writeln ('________________________________________');
   Writeln;
  For i:=1 to 10 do
   Begin
     Sum:=sum+(a[i]);
     a[i]:=sum/i;
   End;
  For i:=1 to 10 do
   Write (' ',a[i]:2:1);
   Readln;
End.

[Косюра]

Немного переделала код Wild_klas. Работает под эту задачу.

const
n=20;

Var
    i:integer;
    sum:real;
    a,b: array[1..n] of real;

begin
  Sum:=0;
  WriteLn('Введите массив');
  for i:=1 to n do
    Read(A[i]);
  WriteLn;

  For i:=1 to n do
   Write (' ',a[i]:2:0);
   Writeln;

  For i:=1 to n do
     Sum:=sum+(a[i]);

  For i:=1 to n do
     B[i]:=(Sum-a[i])/(n-1); // Если среднее арифметическое всех элементов минус a[i]  = (a[1]+a[2]+...+a[i-1]+a[i+1]+...+a[n]) / 19
//  B[i]:=Sum/n-a[i];      // Если среднее арифметическое всех элементов минус a[i] = (a[1]+...+a[n]) {Все члены последовательности} / 20 - a[i]  
  
  For i:=1 to n do
   Write (' ',b[i]:2:1);


   Readln;
End.