const m = 10; // задание длины массива типа arr, m>=n type arr = array[1..m] of real; function getAverage(var a: arr; i, n: integer): real; var res: real; j: integer; begin res := 0; for j := 1 to n do if j <> i then res := res + a[j]; getAverage := res / (n - 1); end; var a, b: arr; i, n: integer; begin n := 5; // n - число членов последовательности a(1), a(2), ... , a(n) for i := 1 to n do read(a[i]); for i := 1 to n do begin b[i] := getAverage(a, i, n); writeln('b', i, ': ', b[i]); end; readln;readln; end.