работа с массивом., посчитать ср.арифм. для предыдущих эл. Опции

[Drow]

Уважаемые мастера,прощу помощи с написанием программы из курсовой...вот:
Заменить каждый элемент массива средним арифметичекским всех предшествующих ему элементов.Число элементов N>=100.Итоговый массив записываеться в файл с контролем на экране монитора.Исходный массив сформировать из случайныйх действительныйх чисел и хранить на МД.
Буду очень благодарен если хотя бы укажете примерный алгоритм решения.

название темы!

1. Заголовок темы должен быть  информативным В противном случае тема удаляется

Сообщение отредактировано: Oleg_Z - 11.09.2005 12:55

[klem4]

помойму среднее арифметической от 1 до i-1 будет так :

type

  Tarr = array [1..100] of single;

var
  mass : Tarr;

  n,j : integer;

function Sr(var x : Tarr; size, p : integer) : single;
var
   i:integer;
   s:single;
begin

   s := 0;

   for i := 1 to p do
    s := s+x[i];

   s :=  s/(p);

   Sr := s;

end;

// в основном блоке после ввода массива : 

 for j := n downto 2 do
    mass[j] := Sr(mass, n, j-1);

из массив 1,2,3,4,5 => 1, 1, 1.5, 2.0, 2.5 т.е

mass[5] = (4+3+2+1)/4
mass[4] = (3+2+1)/3
и т.д.

поправьте если я не прав.

Сообщение отредактировано: klem4 - 11.09.2005 13:26