Python Дано масив А[1..n, 1..m]. Скласти програму пошуку всіх елементів масиву А, що менші ніж усі сусідні

Текстовый редактор Microsoft Word является одним из самых распространенных текстовых 
редакторов. Это обусловлено его многочисленными преимуществами, к которым в первую 
очередь относятся широкие функциональные возможности. Трудно найти такую 
задачу при работе с документами, которую нельзя было бы решить средствами 
Microsoft Word. 

Текстовый редактор Microsoft Word входит в группу программ Microsoft 
Office. Кроме текстового редактора, эта группа включает электронную таблицу 
Excel и систему управления базой данных Access, то есть основные программы, 
которые могут использоваться для форматирования документооборота в 
учреждениях. Широкому использованию также 
встроенные в него средства преобразования файлов, созданных другими 
редакторами, в файлы формата Word. 

Существует несколько версий Microsoft Word для Windows, каждая следующая версия, 
как правило, совместима с предыдущими версиями и имеет дополнительные возможности.

{ 1. Дан массив из n элементов, n не больше 30. отсортировать по возрастанию элементы второй половины }

const n=20;
var 
  k,x,i,j: integer;
  var a: array[1..n] of integer;
begin
  if n mod 2 =0
    then k:=(n div 2)+1    
    else k:=(n div 2)+2;
  writeln ('Исходный массив');
  for i:=1 to n do begin
    a[i]:=random(100);
    write (a[i]:3);
  end;
  writeln;
  for i:=k to n-1 do 
    for j:=i+1 to n do 
      if a[i]>a[j]
        then begin x:=a[i]; a[i]:=a[j]; a[j]:=x end;      
  writeln;
  writeln ('Измененный массив');
  for i:=1 to n do 
    write (a[i]:3);
end.

Результат:
Исходный массив
 52 49 94 71 98 80 83 94 26 59 66 74 97 59 27 32 90 97 43 37

Измененный массив
 52 49 94 71 98 80 83 94 26 59 27 32 37 43 59 66 74 90 97 97


{ Дан массив из n элементов, n не более 30, n-четное. Поменять местами первую и вторую половину }

const n=20;
var 
  k,x,i: integer;
  var a: array[1..n] of integer;
begin
  k:=(n div 2);
  writeln ('Исходный массив');
  for i:=1 to n do begin
    a[i]:=random(100);
    write (a[i]:3);
  end;
  writeln;
  for i:=1 to k do begin 
    x:=a[i]; 
    a[i]:=a[i+k]; 
    a[i+k]:=x 
  end;
  writeln;
  writeln ('Измененный массив');
  for i:=1 to n do 
    write (a[i]:3);
end.

Результат:
Исходный массив
 37  8 74 17  8 96  1 47 69 77 69 21  2 67 93 35 74 58 48 53

Измененный массив
 69 21  2 67 93 35 74 58 48 53 37  8 74 17  8 96  1 47 69 77