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

[Altynai-93]

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

[Stilet]

Задание непонятное.

[Serge_Bliznykov]

s := 0;
for i:=1 to 20 do s := s + a[i]; {находим сумму всех членов последовательности}

{теперь формируем массив B}
for i:=1 to 20 do 
  b[i] := (s - a[i])/19; {вычитаем неиспользуемый элемент из общей сумму и находим среднее без него}

Профит!

[Sciv]

Задание непонятное.

Да я б сказал - бредовое какое-то задание...

Вот если бы исходный массив был двумерный... и то было бы непонятно вот это:

кроме (i=1,2,...,20).

UPDATE А вот Сергей в этом, кажется, что-то понял...

UPDATE 2 Посмотрел на код и кажется сам что-то понял

[p51x]

Есть массив, получить второй, где элемент[i] = среднее арифметическое (первый_массив за исключением a[i])...