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

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

От души)

Нормальное решение... ничего волшебного.

PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018Внимание! Если программа не работает, обновите версию!function mean(Self:sequence of real):real; extensionmethod;begin  Result:=Self.Averageend;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).Printlnend.