// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходный массив ***'); var a:=MatrRandom(10,10,-75,132); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.ElementsWithIndexes.Where(t->t[0].Between(100,999)); foreach var t in s do Write('[',t[1]+1,',',t[2]+1,'] ') end.
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var rmatr:=MatrRandom(n,m,-99,99); rmatr.Println(4); Writeln(4*m*'-'); var max:=rmatr.ElementsByRow.Max; var s:=0; foreach var row in rmatr.Rows do if row.Contains(max) then s+=row.Sum; Writeln('Сумма равна ',s) end.
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(10,10,-75,132);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsWithIndexes.Where(t->t[0].Between(100,999));
foreach var t in s do Write('[',t[1]+1,',',t[2]+1,'] ')
end.
Пример
*** Исходный массив ***
-3 -22 -17 105 33 -73 37 109 83 106
-38 12 108 25 -8 0 97 -56 -24 10
78 108 8 7 89 -54 108 3 24 86
-31 -39 12 129 38 90 56 94 -26 84
24 -4 -14 9 87 126 82 129 15 104
20 68 61 -52 79 22 102 109 -59 12
-48 -41 9 129 61 -74 132 112 120 34
76 -72 103 25 118 6 47 132 53 95
-4 112 120 53 -10 33 33 -11 -25 -60
121 80 78 94 57 -10 120 -11 80 85
[1,4] [1,8] [1,10] [2,3] [3,2] [3,7] [4,4] [5,6] [5,8] [5,10] [6,7] [6,8] [7,4] [7,7] [7,8] [7,9] [8,3] [8,5] [8,8] [9,2] [9,3] [10,1] [10,7]
// Внимание! Если программа не работает, обновите версию!
begin
var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var rmatr:=MatrRandom(n,m,-99,99);
rmatr.Println(4); Writeln(4*m*'-');
var max:=rmatr.ElementsByRow.Max;
var s:=0;
foreach var row in rmatr.Rows do
if row.Contains(max) then s+=row.Sum;
Writeln('Сумма равна ',s)
end.
Пример
Количество строк и столбцов в матрице: 8 7
*** Исходная матрица ***
-50 -48 6 5 54 -16 42
-96 -23 -35 46 -39 -44 -15
2 -67 99 50 -53 68 -61
-77 -13 -76 -59 38 -20 4
97 -82 -1 20 -81 -77 -2
-51 87 34 -5 14 -60 91
-53 24 2 98 -98 29 -84
60 28 18 68 8 28 -73
Сумма равна 38