[lmikle]

массивы могут начинаться с любого числа - как опишешь, так и будет.
так что мой вариант среднего для строки такой:

Код:

var
  i, j : Integer;
  s : double;
begin
  for i := Low(a) to high(a) do
    begin
      s := 0;
      for j := low(a[i]) to high(a[i]) do s := s + a[i,j];
      memo3.Lines.Add(FloatToStr(s/length(a[i]));
    end;
end;