Проверьте изученное
1. Что такое объект?
2. Какие объекты можно вставлять в текстовый документ?
3. Какие возможности имеются в программе OpenOffice.org Writer для
работы с формулами?
​

# параметры гаммы шифра:
a,b,c=5,1,256
# гамма шифра:
S0=21
S1=(a*S0+b)%c # 106
S2=(a*S1+b)%c # 19
# гаммирование (шифровка) текста ABC:
T0=ord('A')^S0 # 84
T1=ord('B')^S1 # 40
T2=ord('C')^S2 # 80
print('GAMMA S:     ',str(S0).rjust(4),str(S1).rjust(4),str(S2).rjust(4)) # 21 106 19
print('Source Text:   ABC')
print('Text ASCII:    65,66,67');
print('Criptotext T:',str(T0).rjust(4),str(T1).rjust(4),str(T2).rjust(4)) # 84 40 80
# дешифровка текста:
d0=T0^S0 # 65
d1=T1^S1 # 66
d2=T2^S2 # 67
print('Decipher Text: '),
print(chr(d0),chr(d1),chr(d2)) # ABC

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

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.

Пример
Количество строк в матрице: 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