Даны действительные числа a1,...,a20. Получить числа b1,...,b20, ...

[Alfa.Shadow]

Даны действительные числа a1,...,a20. Получить числа b1,...,b20, где bi - среднее арифметическое всех членов последовательности a1,...,a20, кроме (i=1,2,...,20).

[VIK_aka_TOR]

как то так...

var
a,b: array [1..20] of real;
n,i,j: integer;
begin
    n:=5;
    writeln('Введите значения масива а: ');
    for i:=1 to n do
    begin
         write('a[',i,']=');
         readln(a[i]);
    end;

    for i:=1 to n do
    begin
    for j:=1 to n do
        if i = j then
           continue
        else
        b[i]:=b[i] + a[j];
        b[i]:=b[i]/(n-1);
    end;
    writeln('Массив b: ');
    for i:=1 to n do
    writeln('b[',i,']=',b[i]);
end.

насколько понял считаются среднее арифметическое для b[i] из всех элементов массива а, кроме а[i]..

[Alfa.Shadow]

спасибо большое))