с криптографией! 1.Перевод байта в 16 форме в 2 форму и соответствующий многочлен в GF(256).
2.Сложение двух байтов.
3.Умножение по модулю.
4.Умножение на х, применение для умножения на произвольные многочлены
5.Определение полиномов с коэффицентами в GF(256), сложение полиномов
6.Умножение полиномов.

Var a:array[1..10] of integer;
  k,n,i:integer;
  min:INTEGER;
begin
  randomize; N:=10; k:=0 {кол-во отрицательных элементов};
  writeln ('исходный массив');
  for i:=1 to N do
  begin
   if random(2) =1 then a[i]:=random(100)
     else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
   write(a[i]:5);
  end;
  writeln;
  {поиск минимального положительного}
  if (k<>0) or (k<>N) then  {есть отрицательные или не все отрицательные}
  begin
    for i:=1 to N do
     if  (a[i]>0) and (a[i]<min) then  min:=a[i];
  {замена}
    for i:=1 to N do
     if  (a[i]<0)  then  a[i]:=min;
  end;
  writeln('Новый массив')
    for i:=1 to N do      write(a[i]:5);
end.

Program n1;  

var q,w,e:integer;  

a:array [1..25]of integer;  

begin

 for q:=1 to 25 do begin            

a[q]:=random(30);  

 write(a[q],' ');  

 end;

end.

Program n2;  

var q:integer;  

a:array [1..30]of integer;  

begin

 a[1]:=5;

   writeln(a[1],' ');

 for q:=2 to 26 do begin            

a[q]:=a[q-1]+5;  

 writeln(a[q],' ');  

 end;

end.

Program n3;  

var q:integer;  

a:array [1..15]of integer;  

begin

 for q:=1 to 15 do begin            

a[q]:=random(30)-50;

 writeln(a[q],' ');  

 end;

end.

Объяснение: