Процедуры и функции Опции

[Art87]

Уважаемые форумчане. Помогите пожалуйста задачку решить.

[volvo]

Ты уж если передаешь в процедуру A: mass как параметр, то им же и пользуйся... Кстати, использовать здесь функцию более оправдано, чем возвращать результат через глобальную переменную (глобальные переменные лучше вообще использовать как можно реже :yes: ). И еще: используй открытые массивы (A: array of <type>, без указания длины) как параметр. Работать с ними дальше - как с обычными массивами; единственное отличие - индексы не [1 .. n], а [0 .. n - 1]

type mass=array[1..7] of integer;

function Col(var A: array of integer; n: byte;
         var k:byte): real;
Var i, sum: integer;
begin
  writeln('Введите ', n , 'элементов массива');
  for i:=0 to pred(n) do
    read(A[i]);

  k:=0; sum:=0;
  For i:=0 to pred(n) do begin
    if A[i] < 0 then begin
      inc(sum, A[i]); inc(k);
    end;
  end;

  Col := abs(sum)/k;
end;

var
  t: real;
  kX1,kX2,kX3: byte;
  X1, X2, X3: array[1 .. 7] of integer;

begin
  t := Col(X1,7,kx1);
  writeln ('Среднее арифметическое ', kx1 ,' элементов в массиве X1=',t:5:3);
  t := Col(X2,6,kx2);
  writeln ('Среднее арифметическое ', kx2 ,' элементов в массиве X2=',t:5:3);
  t := Col(X3,4,kx3);
  writeln ('Среднее арифметическое ', kx3 ,' элементов в массиве X3=',t:5:3);
end.