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

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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.