1)найти максимальный элемент средт четных элементов массива 2)массив задан датчиком случайных чисел на интервале от -37 до 66 найти наим нечетный элемент

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

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  Writeln('Максимальный четный элемент: ',a.Where(x->x.IsEven).Max);
end.

Пример
n= 15
49 -55 14 3 -29 -18 -23 -54 -82 -68 75 45 86 0 -82
Максимальный четный элемент: 86

begin
  var a:=ArrRandom(ReadInteger('n='),-37,66); a.Println;
  Writeln('Минимальный нечетный элемент: ',a.Where(x->x.IsOdd).Min);
end.

Пример
n= 13
-8 25 -1 40 52 -6 34 -23 44 -30 -14 -6 33
Минимальный нечетный элемент: -23

Объяснение:

Вредная информация-Реклама игр для детей старше 18 лет , реклама неприличных книг, разные посты в соц сетях которые являются пропагандой чего то плохого , азартные игры, помимо опасностей человеческих, есть еще опасности чисто технические. Заблудившись в сети очень легко заразить компьютер вредоносными программами. Кража паролей и прочей конфиденциальной информации, спам от вашего имени, хулиганство, вымогательство, угрозы

нежелательная информация. В интернете кроме орнографических сайтов существуют ресурсы, на которых в подробностях рассказывается о создании взрывных или поджигающих устройств, идеализируется такое понятие, как суіцид, употребление алкоголя, табака и запрещенных нарк@тических препаратов.

Последовательности длиной 7, содержащей 5 букв А могут быть следующими:
** (* - любой из символов В или С)
*А*
ААА*АА*
АА*ААА*
А**
** (пока 6 вариантов)
Далее - аналогично:
**А
ААА*А*А
АА*АА*А
А*ААА*А
**А (ещё 5 вариантов)
ААА**АА
АА*А*АА
А*АА*АА
*ААА*АА (ещё 4 варианта)
АА**ААА
А*А*ААА
*АА*ААА (ещё 3 варианта)
А**
*А* (ещё 2)
** (ещё 1)
Итого: 6+5+4+3+2+1=21
Так как на месте * могут быть любые из 2 символов В или С, то это даст ещё по 4 варианта для каждого случая.
Можно здесь, конечно, комбинаторику вспомнить.
Итого: 21*4 = 84