Процедуры в Паскаль

[zver1804]

Описать процедуру Smooth (A, N), которая заменяет каждый элемент настоящего
массива A размера N на его среднее арифметическое со своими соседями
(«Сглаживания массива»). Массив А - входной и выходной параметр, N -
входной параметр. С помощью этой процедуры выполнить пятикратное
сглаживания этого массива, выводя на экран результаты каждого
сглаживания.

[BDA]

Ждем Ваши наработки

Вот сама функция, осталось написать совсем чуть-чуть:

const
  n = 20;

type
  tarray = array[1..n] of real;

procedure smooth(var a: tarray; const n: integer);
var
  i: integer;
  t, tmp: real;
begin
  if n <= 1 then exit;
  t := a[1];
  a[1] := (a[1] + a[2]) / 2;
  for i := 2 to n - 1 do
  begin
    tmp := (t + a[i] + a[i + 1]) / 3;
    t := a[i];
    a[i] := tmp;
  end;
  a[n] := (t + a[n]) / 2;
end;

[Mad_Cat]

 tmp := (t + a[i] + a[i + 1]) / 3;
    t := a[i];   // это имхо выше надо
    a[i] := tmp;

так не проще?

a[i]:=(a[i]+a[i+1]+a[i-1])/3;

[BDA]

Mad_Cat, а Вы проверьте
Имхо, ваша формула не учитывает, что a[i-1] уже изменился.