Процедуры и функции с параметрами массивами. Pascal

[Alex Joy]

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

[BDA]

Задача слово в слово - http://programmersforum.ru/showthread.php?t=217255.

[Alex Joy]

Спасибо, брат! А что нужно добавить?

[BDA]

Осталось объявить парочку переменных, запросить n и сам массив, вызвать пару раз процедуру и вывести получившийся массив.

[Alex Joy]

for i:=1 to n do
Readln(tarray[i]);
Потом его обработать 
for i:=1 to n do
tarray[i]:=smoot(tarray);

Так?

Всё равно не получается.

[BDA]

Давайте весь получившийся код.

[Alex Joy]

1. Program L16;
2. const
3. n = 20;
   
4. type
5. tarray = array[1..n] of real;
   
6. procedure smooth(var a: tarray; const n: integer);
7. var
8. i: integer;
9. t, tmp: real;
10. begin
11. if n <= 1 then exit;
12. t := a[1];
13. a[1] := (a[1] + a[2]) / 2;
14. for i := 2 to n - 1 do
15. begin
16. tmp := (t + a[i] + a[i + 1]) / 3;
17. t := a[i];
18. a[i] := tmp;
19. end;
20. a[n] := (t + a[n]) / 2;
21. end;
    
22. var i:integer;
23. A:array [1..n] of real;
    
24. begin
25. for i:=1 to n do
26. Readln(A[i]);
27. for i:=1 to n do
28. A[i]:=smooth(A);
29. end.

Не получается в конце...((

[BDA]

const
  n = 5;

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;

var
  i: integer;
  a: tarray;

begin
  for i := 1 to n do
    Readln(a[i]);
  smooth(a, n);
  for i := 1 to n do
    write(a[i]:0:3, ' ');
  Readln;
end.

[Alex Joy]

Спасибо, огромное!

Теперь полностью красивая программка.)

	
program L16;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
n = 5;

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;

var
i: integer;
a: tarray;

begin
for i := 1 to n do
begin
writeln('Vvedi ', i ,' chislo: ');
Readln(a[i]);
end;
smooth(a, n);
for i := 1 to n do
write(a[i]:0:3, ' ');
Readln;
end.