Найти среднее значение (двумерный массив)

[anubis]

Найти среднее значение (двумерный массив)

:tehnari_ru_203:Помогите, пожалуйста, решить задачку((((дана действительная квадратная матрицы (10,10)найти среднее значение каждой строки из заштрихованной части матрицы)))) http://s43.radikal.ru/i101/1103/f5/6b9a828b1869.jpg

 

[Vladimir_S]

:tehnari_ru_203:Помогите, пожалуйста, решить задачку((((дана действительная квадратная матрицы (10,10)найти среднее значение каждой строки из заштрихованной части матрицы))))

var
 A:Array[1..10,1..10] of Real;
 i,j,N:Byte;
 Med:Array[1..5] of Real;
begin
 Randomize;
 For i:=1 to 10 do
  begin
   For j:=1 to 10 do
    begin
     A[i,j]:=100.0*Random;
     Write(A[i,j]:7:3);
    end;
   WriteLn;
  end;
 WriteLn;
 For i:=1 to 5 do
  begin
   N:=10-(i-1)*2;
   Med[i]:=0;
   For j:=1 to i-1 do Write('       ');
   For j:=i to 10-(i-1) do
    begin
     Write(A[i,j]:7:3);
     Med[i]:=Med[i]+A[i,j]/N;
    end;
   WriteLn;
  end;
 WriteLn;
 For i:=1 to 5 do
  Write(Med[i]:7:3);
 WriteLn;
 ReadLn;
end.

 

[anubis]

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