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.
PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018 Внимание! Если программа не работает, обновите версию!
procedure Println(Self:array of real); extensionmethod; begin Self.Batch(5).foreach(s-> begin foreach var p in s do Write(p:15:10); Writeln end); Writeln(Min(15*(Self.Count div 2),38)*'- ') end;
begin var m:=ArrGen(ReadInteger('n='),i->Cos(i),1); m.Println; var (a,b):=ReadReal2('Введите границы A B:'); Writeln('Число элементов на интервале [',a,',',b,'] равно ', m.Where(t->t.Between(a,b)).Count); Write('Сумма элементов, расположенных после максимального, равна '); var imax:=m.IndexMax; (m?[imax+1:].Sum).Println; Writeln('Элементы, упорядоченные по убыванию модулей'); m:=m.OrderByDescending(t->Abs(t)).ToArray; m.Println; end.
