Передача перо* дача
можешь нарисовать лучше ;)
1) 1<6 - да, то => i:=1+1=2, s:=0+2=2.
2)2<6 - да, то => i:=2+1=3; s:=2+3=6.
3)3<6 - да, то => i:= 3+1=4; s:= 4 + 6 = 10.
4)4<6 - да, то => i:= 4+1=5; s:= 10+5=15.
5)5<6- да, то => i:=5+1=6; s:= 15+6=21.
6) 6<6-нет
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var b:=a.Rows.SelectMany(x->x).ToArray;
var mx:=b.IndexMax; var mn:=b.IndexMin;
Swap(a[mx div n,mx mod n],a[mn div n,mn mod n]);
Writeln('*** Матрица-результат ***'); a.Println(4);
end.
<u>Пример</u>
Количество строк в матрице: 5
Количество столбцов в матрице: 6
*** Исходная матрица [5,6] ***
22 72 95 -18 48 15
-25 72 73 45 -62 75
49 95 -32 20 66 48
55 7 57 -98 -8 94
78 50 -49 73 0 -74
------------------------
*** Матрица-результат ***
22 72 -98 -18 48 15
-25 72 73 45 -62 75
49 95 -32 20 66 48
55 7 57 95 -8 94
78 50 -49 73 0 -74
В 32-символьном алфавите на 1 символ необходимо log(2)32=5 бит.
На 20 символов: 20*5=100 бит
