1. порахувати кількість та суму парних елементів масиву.

7. в масиві поміняти місцями максимум та мінімум.

26

Объяснение:

a = 23 (дано число a)

выполняем цикл (увеличиваем число a на 5 и проверяем условие число a больше 35, если условие истинно (да) выходим из цикла, если ложное (нет), то повторяем цикл)

a = a + 5 = 23 + 5 = 28

a > 35 (28 > 35, нет)

a = a + 5 = 28 + 5 = 33

a > 35 (33 > 35, нет)

a = a + 5 = 33 + 5 = 38

a > 35 (38 > 35, да)

a = a * 2 =  38 * 2 = 76 (увеличиваем число a в 2 раза)

проверяем условие является ли число a двузначным, если условие истинно (да), то выполняем левую ветку, а правую ветку (ещё один цикл) не трогаем (если условие ложно (нет), то выполняем правую ветку (ещё один цикл), а левую ветку не трогаем)

9 < a < 100 (9 < 76 < 100, да - двузначное)

a = a - 50 = 76 - 50 = 26 (уменьшаем число a на 50)

получаем ответ (больше ничего не делаем)

Максимальное число, составленное из утроенного произведения цифр  будет 
9*3*N  -  не  может быть больше 54,  т.е.  
N может быть только 1 или 2.  По условию х>=10  ->  N=2  (N -порядок числа).
Поэтому искать нужно среди чисел от 11 до 54.  Решение - число 15.

var n,m: integer;
begin
  write('n = ');  readln(n);
  if n=2 then
  begin    m:=11;
    repeat
      if (m mod 10)*(m div 10)*3=m then
      begin
        writeln('число:  ',m);
        m:=55;
      end;
      m:=m+1;
    until m>54;
  end
  else  writeln('нет решения');
end.