(для студентов)pascalabc.net дана действительная матрица размером n*m. найти среднее арифметическое каждого из столбцов, имеющих четные номера. подсчет среднего арифметического оформить функцией. напишите код программы.
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.
Внимание! Если программа не работает, обновите версию!
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.