Компьютерлік бума мен карапайым буманы және таңбаша мен файлды салыстырындар ​

// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var a:array[1..20] of integer;
  Randomize;
  for var i:=1 to 20 do a[i]:=Random(-50,50); a.Println;
  var b:=Range(2,20,2).Select(i->a[i]);
  Writeln('Элементы с четными индексами по возрастанию');
  b.Sorted.Println;
  Writeln('Элементы с четными индексами по убыванию');
  b.SortedDescending.Println;
end.

Тестовое решение:
-15 46 -34 -3 43 16 -17 -28 -19 12 -28 -11 48 -12 -1 33 -37 9 6 -40
Элементы с четными индексами по возрастанию
-40 -28 -12 -11 -3 9 12 16 33 46
Элементы с четными индексами по убыванию
46 33 16 12 9 -3 -11 -12 -28 -40

import locale

locale.setlocale(locale.LC_ALL, 'ru_RU.UTF-8')

myDate = datetime.today()

myMonth = myDate.strftime('%B')

Ещё можно вот так через функции:

def month_name(num, lang):

   en = ['january', 'february', 'march', 'april', 'may', 'june', 'july', 'august', 'september',

         'october', 'november', 'december']

   ru = ['январь', 'февраль', 'март', 'апрель', 'май', 'июнь', 'июль', 'август', 'сентябрь',

         'октябрь', 'ноябрь', 'декабрь']

   if lang == 'en':

       return en[num - 1]

   else:

       return ru[num - 1]

Объяснение: