Подпрограммы и обработка матриц

[dusya9992]

Задана квадратная матрица A размером nxn (n 10), состоящая из действительных элементов.
Найти среднее арифметическое элементов каждого из нечетных столбцов этой матрицы.

[Sparky]

program ex;
//==============================================================================
//    îïèñàíèå äàííûõ
//==============================================================================
const n=3;
var
   matrix:array[1..n,1..n] of integer;
   i,j,sum:integer;
   sr:real;
begin
//==============================================================================
//    çàïîëíåíèå ìàòðèöû è ïå÷àòü åå
//==============================================================================
     for i:=1 to n do
     begin
         for j:=1 to n do
         begin
             matrix[i,j]:= Random(n);
             write(matrix[i,j]);
         end;
         writeln;
     end;

//==============================================================================
//    âû÷ñëåíèå ñð ÷åòíûõ ñòîëáöîâ
//==============================================================================
     for j:=1 to n do
     begin
          if(j mod 2 <> 0) then  //åñëè ñòîëáåö íå÷åòíûé
          begin
               sr:=0;
               sum:=0;
               for i:=1 to 3 do
                   sum:=sum+matrix[i,j];
               sr:=sum/n;
               writeln(sr:5:2);
          end;   //èíà÷å íè÷åãî íå äåëàåì
     end;
end.

Можно узнать, куда проги сдавать будете?