Установите соответствие между элементами двух множеств класс) 347₈
12₈
33₈
53₁₀
84₁₀
15₁₀
10₁₀
231₁₀
54₁₆
F₁₆
65₈
1B₁₆

Значит так: мы создаем массив избыточной длины, куда потом будем записывать рандомные числа. Так же мы создаем массив-счетчик b (у него индексами являются сами числа, а элементами - количество этого числа в массиве А), куда будет присваиваться, сколько раз нам встречается то или иное число (перед этим мы массив обязательно обнулим). В конце мы смотрим максимальное число из массива-счетчика. Вуаля!

Вот пример программы на паскале ABC:

var a:array [1..1000000] of integer; 
b:array [1..10] of longint;   
c:integer;   
i,max,n:longint;
begin
write('Введите число элементов массива: ');
readln(n); 
max:=0; 
for i:=1 to 10 do 
b[i]:=0; 
for i:=1 to n do  begin 
a[i]:=random(10)+1; 
write(a[i],' '); 
b[a[i]]:=b[a[i]]+1 
end; 
for i:=1 to 10 do if b[i]>max then 
begin 
c:=i; 
max:=b[i] 
end; 
writeln; 
writeln('Чаще всего в массиве встречается число ',c)
end.

Program p452;
var
  a,b,m,d:integer;
begin
  Write('Введите размеры форточки (а,b) в см: ');
  Read(a,b);
  Write('Введите диаметр головы Васи в см: ');
  Read(d);
  if a<b then m:=a+2 else m:=b+2;
  { +2 - это зазор по 1 см с обоих сторон }
  if d<=m then Writeln('Голова проходит')
  else Writeln('Голова не проходит')
end.

Тестовое решение:
Введите размеры форточки (а,b) в см: 25 40
введите диаметр головы Васи в см: 23
Голова проходит

program p453;
var
  a,b,c,x,y,m1,m2,n1,n2:integer;
begin
  Write('Введите размеры кирпича в см (a,b,c): ');
  Read(a,b,c);
  Write('Введите размеры отверстия в см (x,y): ');
  Read(x,y);
  if a<b then
    if a<c then begin
      m1:=a;
      if b<c then m2:=b else m2:=c
    end
    else begin m1:=c; m2:=a end
  else
    if b<c then begin
      m1:=b;
      if a<c then m2:=a else m2:=c
    end
    else begin m1:=c; m2:=b end;
  if x<y then begin n1:=x; n2:=y end
  else begin n1:=y; n2:=x end;
  if (m1<=n1) and (m2<=n2) then Writeln('Кирпич пройдет в отверстие')
  else Writeln('Кирпич не пройдет в отверстие')
end.

Тестовое решение:
Введите размеры кирпича в см (a,b,c): 10 4 12
Введите размеры отверстия в см (x,y): 5 9
Кирпич не пройдет в отверстие

program p454;
var
  a,b:integer;
begin
  Write('Введите значения а и b: '); Read(a,b);
  Writeln('Размеры чемодана ',3*a,'x',2*a,'x',a);
  Writeln('Размеры коробки ',3*b,'x',2*b,'x',b);
  if b<a then Writeln('Коробка поместится в чемодан')
  else Writeln('Коробка не поместится в чемодан')
end.

Тестовое решение:
Введите значения а и b: 18 16
Размеры чемодана 54x36x18
Размеры коробки 48x32x16
Коробка поместится в чемодан