<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
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.
<u>Пример</u>
Количество строк и столбцов в матрице: 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
Гляди. Вот у нас первая строчка.
x:=1.5
Это значит, что переменной x мы присвоили значение 1.5
x:= 2*x + 1
Значение переменной x равно её текущему значению x * 2 + 3.
т.е.
x:= 1.5 * 2 + 1 = 4
Затем
y:= x/2
т.е.
y:= 4/2 = 2
Дальше по аналогии:
y:= x + y
т.е.
y = 4 + 2 = 6
и последняя операция:
x:=x - y
x:=4 - 6 = -2
Ответ: x = -2, y = 6
x = -2;
y = 6;
39 символов * 16 бит = информационный обьем предложения в битах = 624
"Навигатор"
Рабочая область
"Файл"
"Рассылка"
"Главная"
Так как 500 кб это 4096000 байт, то
4096000/128000= 32 с
всё просто