// PascalABC.NET 3.2, сборка 1447 от 22.05.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество колонок в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(5); Writeln(5*a.ColCount*'-'); a.Cols.Select(x->Format('{0,5}',x.Where(y->y<0).Sum)).Print(''); Println(' - суммы отрицательных'); end.
lim n->∞ An+1/An= 6^n+1((n+1)^2-1)/(n+1)!×n!/6^n(n^2-1)=
lim n->∞ 6^n6((n+1)^2-1)1*2*3...*n/1*2*3...*n(n+1)*6*(n^2-1)=
6lim n->∞(n+1)^2-1/(n+1)(n^2-1)=6lim n->∞n^2+2n+1-1/(n+1)(n^2-1)=
6lim n->∞ n(n+2)/(n+1)(n^2-1)