Дан массив A(N). Получить массив B(N), i-й элемент которого равен среднему арифметическому первых i элементов - Free Pascal

Формулировка задачи:

Дан массив A(N). Получить массив B(N), i-й элемент которого равен среднему арифметическому первых i элементов массива А: bi = (a1 + a2 + ... + ai ) / i

Код к задаче: «Дан массив A(N). Получить массив B(N), i-й элемент которого равен среднему арифметическому первых i элементов - Free Pascal»

textual
const
  n = 10;
type
  vector = array[1 .. n] of double;
var
  a : vector =
    (1, 2, 3, 4, 5, 6, 7, 8, 9, 10); 
  b : vector;
  i : integer;
  s : double;
 
begin
  for i := 1 to n do write(a[i]:6:2);
  writeln;
  s := 0;
  for i := 1 to n do
  begin
    s := s + a[i];
    b[i] := s / i;
    write(b[i]:6:2);
  end;
  writeln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.143 из 5


СДЕЛАЙТЕ РЕПОСТ