Соедините все буквы в 2 одинаковые цепочки так чтобы для каждой цепочки были истинны все следующие утверждения 1.) в этой цепочки буква н следующая после буквы м. 2.) в этой цепочки последняя и пятая буква одинаковые. 3.) в этой цепочке вторая буква гласная 4.) в этой цепочке буква т идет позже буквы к

.....................

1.
var
a: array [1..11] of integer;
i, min, imin: integer;
begin
for i:=1 to 10 do read(a[i]);
min:=32000;imin:=0;
for i:=1 to 10 do if (a[i] mod 2) = 0 then 
 if a[i]<min then begin min:=a[i]; imin:=i; end;
write('Минимальное:', min, ' Индекс:', imin);
end.

2.
function stepen(c, s: integer):integer;
var
j, rez: integer;
begin
rez:=c;
for j:=1 to (s-1) do rez:=rez*c;
stepen:=rez;
end;
var
a: array [1..11] of integer;
i, min, imin: integer;
begin
for i:=1 to 10 do a[i]:=stepen(2, i);
for i:=1 to 10 do write(a[i], ' ');
end.

Если возникли вопросы или ошибки в ходе работы программы, пиши в комментариях.

Sub Swap()

   Dim r As Range, A As Variant

   Dim i As Integer, im As Double, n As Integer, t As Double

   n = 15

   Set r = Range(Cells(1, 1), Cells(1, n))

   A = r

   im = 1

   For i = 2 To n

       If A(1, i) > A(1, im) Then

           im = i

       End If

   Next i

   t = A(1, im)

   A(1, im) = A(1, n)

   A(1, n) = t

   Set r = Range(Cells(2, 1), Cells(2, n))

   r = A

End Sub

На лист в ячейки А1 - О1 заносим исходные 15 чисел

На этот же лист через проект помещаем макрос и запускаем.

Результат будет в ячейках А2 - О2