Существенный признак<span> — </span>признак<span>, придающий </span>предмету<span> качественную </span><span>определенность; </span>признак<span>, без которого </span>предмет<span> перестает </span>существовать<span> как данный</span>предмет<span>.</span>
(5;3) не входит, т. к. при x=5 программа завершается, а не запрашивает точку (5;3)
<em>// PascalABC.NET 3.3, сборка 1633 от 10.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*n*'-');
Writeln('Средние значения по столбцам');
a.Cols.Select(col->col.Average).Println
end.
<u>Пример</u>
Количество строк и столбцов в матрице: 6 7
*** Исходная матрица ***
-70 66 -81 -2 42 22 -7
-42 4 -27 32 6 -38 -81
-22 -60 -65 -26 -87 2 -49
-59 -48 -5 -11 38 -27 98
-94 -47 86 -11 -13 -92 -43
-92 89 -58 37 20 -14 -45
----------------------------
Средние значения по столбцам
-63.1666666666667 0.666666666666667 -25 3.16666666666667 1 -24.5 -21.1666666666667
1010
10 / 2 = 5 остаток 0
5 / 2 = 2 остаток 1
2 / 2 = 1 остаток 0
собираем последний результат и остатки в обратном порядке - получаем 1010
===== PascalABC.NET =====
begin
ReadArrInteger(ReadInteger)
.Pairwise.Count(p -> Sign(p[0]) <> Sign(p[1]))
.Println
end.
Сначала вводим длину массива, затем все его элементы.