Водном купе поезда «москва-владивосток» собрались молодые люди, которые познакомились в этой поездке. все они направлялись на работу в разные города восточной сибири или дальнего востока. один из них – белов – уже не раз там бывал, хорошо знал те края и много рассказывал о них своим новым знакомым. среди них оказался москвич суворов, который в сибири никогда до этого не был. он неплохо играл в шахматы и поэтому не отходил от серёгина, который был ему достойным оппонентом. наташа ехала в хабаровск после того, как окончила техникум. она была замужем за евгением. у другой девушки из этого купе фамилия была такая же, как и у дмитрия, а имя такое же, как у серёгина. оказалось, что лоскутов и серёгин – оба из ярославля, а георгий из саратова. в фамилии евгения три гласных буквы, а юлий любит теннис. назовите имена и фамилии всех собравшихся в этом купе молодых людей.

Белов Георгий,
Суворов Дмитрий,
Серёгин Евгений,
Лоскутов Юлий,
Серегина Наташа,
Суворова Евгения.


Решение:

У 2-ой девушки имя как у Серегина
Только 2 имени могут быть как мужским, так и женским - Юлий и Евгений
Серегин не может быть Юлием, т.к. играет не в теннис, а в шахматы, значит Серегин - Евгений, а 2-я девушка - Евгения.  

Наташа была замужем за Евгением, значит можно предположить, что она носит его фамилию => Наташа - Серегина.

Суворов не Евгений (уже занято), не Юлий, т.к. играет в шахматы, а не в теннис, и не Георгий, т.к. из Москвы, а не из Саратова => Суворов - Дмитрий. => 2-я девушка Евгения - Суворова, т.к. ее фамилия, такая же, как у Дмитрия.

Лоскутов из Ярославля, значит он не может быть Георгием => Лоскутов - Юлий.
 
 Остается одна Фамилия Белов и одно имя Георгий => Белов - Георгий

Sub Strange()

   Dim r As Range, a As Variant, b As Variant, e As Variant, Max As Variant

   Set r = Selection

   a = r

   Max = -1E+100

   For Each e In a

       If e < 0 And e > Max Then

           Max = e

       End If

   Next

   Dim i As Integer, j As Integer

   b = a

   j = LBound(b, 2) - 1

   For i = LBound(a, 2) To UBound(a, 2)

       If a(1, i) = Max Then

           j = j + 1

           b(1, j) = i

       End If

   Next

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

   Rows(2).Clear

   r = b

End Sub

PascalABC.NET

begin

 var a := ArrRandom(4, -10, 20);

 a.Println;

 // ищем j - позицию первого неотрицательного элемента

 var j := -1;

 for var i := 0 to a.High do

   if a[i] >= 0 then // нашли

   begin

     j := i;

     break

   end;

 if j > -1 then

 begin

   for var i := j + 1 to a.High do

     if a[i] < 0 then

     begin

       for var k := i downto j + 1 do

         Swap(a[k], a[k-1]);

       j += 1;

       if j >= a.High then break;

     end;

     a.Println

 end

 else

   Println('Нет положительных элементов')

end.