Дано ціле число n .Розробіть програму , за до якої це число збільшуеться на 7, якщо воно більше 15, і зменьшується на 5, якщо воно менше або дорівнює 15 . (Зробити на Python)

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

begin
  var n:=ReadInteger('Количество строк в массиве:');
  var m:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(5*a.ColCount*'-');
  a.Cols.Select(x->Format('{0,4}',x.Where(y->y>0).Count)).Print('');
  Println(' - положительных');
  a.Cols.Select(x->Format('{0,4}',x.Where(y->y<0).Count)).Print('');
  Println(' - отрицательных');
end.

Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 8
*** Исходный массив [5,8] ***
  32  83 -68 -33 -63  43   0  30
  81  46 -52  56  49  10 -31   9
 -41 -56 -80  70 -95  94 -53  56
   0 -87 -24  23 -54  24 -84  -3
  22  74  54 -98  42  94 -68  59

   3   3   1   3   2   5   0   4 - положительных
   1   2   4   2   3   0   4   1 - отрицательных

Все решения даны в системе  программирования
PascalABC.NET 3.2, сборка 1382 от 06.02.2017

Если программа не работает, обновите версию!

№1
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  var im:=a.IndexMax;
  Writeln('Максимальный элемент номер ',im+1,' равен ',a[im])
end.

Пример
n= 6
Вводите числа: 13 8 -15 0 16 -24
Максимальный элемент номер 5 равен 16

№2
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  Sort(a,(x,y)->x>y);
  a.Println
end.

Пример
n= 5
Вводите числа: 5 -4 6 0 5
6 5 5 0 -4

№3
begin
  var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println;
  Sort(a,(x,y)->x>y); a.Println
end.

Пример
n= 14
-2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
24 21 18 17 13 12 2 -2 -3 -10 -11 -30 -42 -53

№4
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  var b:=a.Where(x->x>0); b.Println
end.

Пример
n= 14
Вводите числа: -2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
2 17 18 24 12 13 21