Задача на языке Паскаль

[Ирина###]

Задан массив вещественных чисел С, состоящий из 40 элементов. Получить "сглаженные" значения элементов массива, заменив в исходном массиве все элементы, кроме первого и последнего, по формуле:
Ci=Ci-1+Ci+Ci+1/3 , i=2,3,..,39. Спасибо за помощь!

[Sazary]

Заполняете массив.
Имеем 2 переменные. Первая - pred - будет хранить прошлый элемент исходного массива. Вторая - tmp.
изначально pred := c[1];
пускаем цикл:

for i:=2 to n-1 do
 begin
 tmp := pred;  { сохраняем предыдущий элемент }
 pred := c[i];   { сохраняем текущий элемент }
 c[i] := (tmp+c[i]+c[i+1])/3; { считаем новое значение для текущего элемента }
 end;

Выводите то, что получилось.

---------
Прочитайте правила.

[NeshSoft]

еще перед началом цикла добавить

pred:=c[1]

[Sazary]

NeshSoft

Сообщение от Sazary

изначально pred := c[1];

все учтено