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

Лишь один человек в семье имеет брата - это СЕСТРА МУЖА. Поэтому она ИНЖЕНЕР.
ЖЕНА - не СЛЕСАРЬ и не ЭКОНОМИСТ (вряд ли женщина увлекается футболом) => она УЧИТЕЛЬ или ЮРИСТ. УЧИТЕЛЕМ она быть не может, так как в этом случае она была бы одновременно и старше, и моложе, чем ИНЖЕНЕР. Следовательно, ЖЕНА - ЮРИСТ, а УЧИТЕЛЬ - тот, кто не является ей кровным родственником, то есть ее МУЖ.
Оставшиеся родственники (СЛЕСАРЬ и ЭКОНОМИСТ по профессии) - это родные дед и внук. Так как СЛЕСАРЬ младше, то СЛЕСАРЬ - это СЫН, а ЭКОНОМИСТ - его дед, то есть ОТЕЦ ЖЕНЫ.

СЕСТРА МУЖА - ИНЖЕНЕР
ЖЕНА - ЮРИСТ
МУЖ - УЧИТЕЛЬ
СЫН - СЛЕСАРЬ
ОТЕЦ ЖЕНЫ - ЭКОНОМИСТ

Uses crt;
var i,j,k,n,max:integer; a:array[1..100] of integer;
procedure rmassr;
begin
    for i:=1 to n do
    a[i]:=random(10);
end;
procedure rmassy;
begin
    for i:=1 to n do
    readln(a[i]);
end;
procedure maxe;
begin
max:=a[1];
    for i:=2 to n do begin
        if a[i] > max then max:=a[i];
    end;
    writeln('max element = ', max);
end;
procedure wmass;
begin
    for i:=1 to n do
    write(a[i],' ');
    writeln;
end;
begin
clrscr;
randomize;
write('Длина массива'); readln(n);
write('1-random; 2- в ручную '); readln(k);
if k=1 then rmassr()
else rmassy();
wmass();
maxe();
readln
end.

Вообще то, это задача чисто математическая.  Пусть есть трехзначное число abc.
По условию:

   abc
+ abc

   bca
Понятно, что максимальным число будет, если сложение в двух младших разрядах идет через перенос  ->  получим систему уравнений:
2c = a +16
2b +1 = c + 16
2a + 1 = b
равносильная ей система
2с = a + 16
c = 2b - 15
b = 2a + 1
подставляем третье во второе, получаем первые два уравнения
2с = a + 16
c = 4a - 13   из этих двух уравнений  ->   7a = 42  ->  a = 6  -> из третьего уравнения  b = 13
13 = D(16),   из первого уравнения  с = 22/2 = 11(10) = B(16)
->  abc(16) = 6DB(16) = 1755(10),     DB6(16) = 3510(10)   -> 2abc = bca