Форум АНТИЧАТ - Показать сообщение отдельно

Ну тогда замени:

Код:

function Average(a: array of integer): real;

на

Код:

function Average(var a: array of integer): real;

и вообще убери

Код:

for i := 0 to 5 do readln(a[i]);

или замени на

Код:

for i := Low(a) to High(a) do readln(a[i]);

если тебе в этой ф-ции надо вводить данные (странно, почему в ф-ции расчета средней элементов массива нужно вводить данные?)

Потом можешь экспериментировать :

Код:

var p: array [1..10] of integer;

begin
  writeln(Average(p));

  writeln('Third element is ',p[3]);
  writeln('Press Enter to exit...');
  readln;
end.