среднее арифметическое диагоналей матрицы? Опции

[bagbir]

Помогите написать процедуру нахождения среднего арифметического для каждой диагонали квадратной матрицы размерности N*N выше и параллельно главной (гл. диагональ невключая)

[volvo]

Переделай немного SrArif, чтоб она принимала 2 параметра:

Procedure SRARIF(const A:tmatr; var res: tmatr);
var
  i,j: 1..n;
  s:real;
begin
  for i:=2 to n do begin
    s:=0;
    for j:=i to n do
      s:=s+A[j-i+1,j];

    { Используем только первую строку, в принципе можно передавать и одномерный массив }
    res[1, i] := s/(n-i+1);
  end;
end;

, и после ее вызова уже распечатывай массив результатов... Так же циклом от 2 до N...

Сообщение отредактировано: volvo - 27.11.2007 0:53