Program fantscrin;
const n = 10;
Var a: array [1..n] of integer;
b: array [1..n] of integer;
i,j:integer;
Begin
j:=0;
for i:=1 to n do
a[i]:=random(20);
for i:=1 to n do
write(a[i], ' ');
for i:=1 to n do
if (i mod 2 <> 0) then
begin
j:=j+1;
b[j]:=a[i];
end;
writeln('');
for i:=1 to n do
a[i]:=0;
for i:=1 to j do
a[i]:=b[i];
for i:=1 to j do
write(a[i], ' ');
writeln('');
writeln(j);
End.
program fantscrin;
const n = 10;
var a: array [1..n] of integer;
b: array [1..n] of integer;
max_a,max_b,i,k:integer;
begin
for i:=1 to n do
a[i]:=random(20);
for i:=1 to n do
b[i]:=random(20);
for i:=1 to n do
write(a[i], ' ');
writeln('');
for i:=1 to n do
write(b[i], ' ');
max_a:=1;
for i:=2 to n do
if(a[i]>a[max_a]) then max_a:=i;
max_b:=1;
for i:=2 to n do
if(b[i]>b[max_b]) then max_b:=i;
writeln('');
writeln('Max_a = ',max_a);
writeln('Max_b = ',max_b);
k:=a[max_a];
a[max_a]:=b[max_b];
b[max_b]:=k;
for i:=1 to n do
write(a[i], ' ');
writeln('');
for i:=1 to n do
write(b[i], ' ');
end.
Тогда аддитивная операция представлена следующим образом:+01234001234112340223401334012440123мультипликативная операция представлена следующим образом:*123411234224233314244321Пример 2. Решить в поле F(11) уравнения: 1) 5+7 2) 3*4 3) 4*41) 5 + 7 (mod 11) 1 (mod 11);
2) 3*4 (mod 11) 1 (mod 11);
3) 4*4 (mod 11) 5 (mod 11).Характеристика поляЕсли для любого натурального m в поле F(q)m*1 = 0,то наименьшее m - есть характеристика поля F(q). Иначе поле считается нулевой характеристики.Любое числовое поле - поле нулевой характеристики. Кольцо классов вычетов по модулю простого числа является полем характеристики р.ТЕОРЕМА. Если F - подполе поля H, то характеристика полей F и H равны.Пример 3. Поле из примера 2 - поле F(11) является полем характеристики 11.Пример 4. Поле F(11^3) является также полем характеристики 11, т.к. поле F(11) является подполем поля F(11^3).Поле F(11^3) является уже примером расширенного поля Галуа (см. расширения конечных полей Галуа).