Question

Даны натуральное число n, действительная матрица размера n х 9. Найти среднее арифметическое каждого из столбцов имеющих четные номера.

Answer 1

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в матрице:');
  var m:=9;
  Writeln('*** Исходная матрица ***');
  var a:=new real[n,m];
  Randomize;
  for var i:=0 to n-1 do
    for var j:=0 to m-1 do
      a[i,j]:=Random(-100,100)/10;
  a.Println(5,1); Writeln(5*a.ColCount*'-');
  var col:=1;
  Write('Средние арифметические: ');
  while col<=m-1 do begin
    Write(a.Col(col).Average:0:2,' ');
    col+=2
    end;
  Writeln
end.

Пример
Количество строк в матрице: 6
*** Исходная матрица ***
  9.6 -4.5  0.2 -7.6  5.4 -4.8 -0.1 -8.6  9.3
 -3.6 -3.3 -4.6 -4.6 -2.0 -7.3  5.4  5.1 -9.3
  3.2  1.0 -8.1 -5.9 -6.1  9.8 -0.7 -2.5 -1.5
 -3.0-10.0 -7.4 -6.7  9.6 -2.1  9.3 -4.6 -3.8
  9.7 -7.8  3.1  0.9 -3.0  5.4  9.7  2.9 -9.6
 -3.3  4.4 -1.7 -5.0  8.5  0.9 -3.9 -3.4  1.3
---------------------------------------------
Средние арифметические: -3.37 -4.82 0.32 -1.85