Question

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

Напишите код программы.

Answer 1

PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программа не работает, обновите версию!

function mean(Self:sequence of real):real; extensionmethod;
begin
  Result:=Self.Average
end;

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
  var a:=MatrGen(n,m,(i,j)->(Random(9000)+1000)/100);
  Writeln('*** Исходная матрица [',n,',',m,'] ***');
  a.Println(6,2); Writeln(6*a.ColCount*'-');
  Writeln('Средние значения по четным столбцам');
  SeqGen(m div 2,t->2*t-1,1).Select(j->a.Col(j).mean).Println
end.