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

michaelishanovpad7dm:
От души)
Похожие вопросы
Предмет: Математика,
автор: gulagaffarova07
Предмет: Математика,
автор: 2010vtara1
Предмет: Физика,
автор: brawltop315776809
Предмет: Алгебра,
автор: dia02
Предмет: Математика,
автор: Аноним