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

Сестра мужа точно инженер
Сын точно слесарь
Муж может быть только учителем или юристом
Отсюда следует, что экономист либо жена либо отец жены. 
Мне в равной мере трудно представить в одной футбольной команде мать и сына или деда и сына, но деваться некуда, приходится выбирать. Я бы выбрала мать, но поскольку феминизм у нас не особо развит, будем считать, что женщины на заводах в футбол не играют;-) 
Тогда получается, что
- отец жены - экономист
- жена - юрист, т.к. она не может быть учителем, иначе окажется одновременно старше и младше инженера
- муж - учитель, т.к. не кровный родственник жене-юристу.



ПС.: Все таки вопрос кому играть в футбол за завод - 60-летнему дедушке или крепкой 40-летней бабе , - весьма спорный и субъективный.

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
  var i,j:integer;
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,10,99); a.Println;
  var imax:=0;
  var imin:=0;
  for i:=1 to n-1 do
    if a[i]>a[imax] then imax:=i
    else
      if a[i]<a[imin] then imin:=i;
  if imin<imax then begin
    for i:=imin+1 to imax-1 do
      for j:=imin+1 to imax-1 do
        if a[i]>a[j] then Swap(a[i],a[j])
    end
  else
    for i:=imax+1 to imin-1 do
      for j:=imax+1 to imin-1 do
        if a[i]>a[j] then Swap(a[i],a[j]);
  a.Println
end.

Тестовое решение:
n= 15
46 87 95 49 86 17 43 61 15 57 23 60 84 75 82
46 87 95 86 61 49 43 17 15 57 23 60 84 75 82

Я так понял на паскале нужно написать?
Program find;uses crt;varA:array[1..40] of integer;n,i ,k:integer;BEGINRandomize ;//Это ,чтобы каждый раз новые числа генерировало//Заполняем массив рандомными числамиfor i:=1 to 40 do  A[i] := random(15);
Writeln('Введите искомый элемент');Readln(n);
k:=0;for i:=1 to 40 do Begin                   // Проверяем,совпадает ли очередной эл-нт массива с искомым                   //Если совпадает, то увеличиваем счетчик k                   if A[i] = n  then k := k+1;                  End;
Writeln ('В массиве ', k , ' раз(а) встречается заданный элемент' );END.