Подберите размер отверстия D для вала номинальным размером 20 мм с верхним отклонением +0,2 и нижнем отклонением +0 таким образом, чтобы полученное соединение образовывало посадку с зазором.

Как гласит еще одна народная мудрость: ошибиться
может каждый. Но иногда цена ошибки бывает очень
высокой, и исправить её уже не в наших силах. Поэтому
лишний раз взвесить все «за» и «против» – совсем не
лишнее. Но человек – интересное существо, он склонен
принимать решения сгоряча, на эмоциях, часто никого не
слушая. Придя в себя и успокоившись, он, конечно, сильно
о принятом ранее решении. Но, скорее всего -
уже поздно. А всего-то стоило немного подумать, остыть,
и только потом принять решение. Подобные ситуации
возникают слишком часто. Хорошо, если последствия
содеянного изменить можно. А если нет? Можно
раскаиваться и укорять себя всю жизнь.
Касается эта пословица и человеческих отношений. Как
часто мы в порыве злости обижаем дорогих нам людей
или срываем на них свою злость. Для нас – всего лишь
брошенное невпопад слово, а человек принимает обиду в
серьез, разочаровывается в отце/сыне/друге/брате. Каков
бы ни был исход – ситуация крайне неприятна. И чтобы
её избежать, достаточно лишь рассудить: а стоит ли
вообще поступать подобным образом? Стоит игра свеч?
Нет, конечно, нет! Человек, в момент злости и
раздражения, хоть на минуту включивши свой разум, это
поймет. Тогда ситуация, на мой взгляд, обернется куда
лучшим образом.
Я понимаю, что чужие ошибки не учат и рассуждать в
этом случае проще всего. Но что мешает человеку быть
чуточку рассудительнее, видеть шире, думать. Почему
простые обыватели не оценивают ситуацию объективно.
Тогда, согласитесь, проблем, как мировых, так и между
людьми, стало бы намного меньше. А пока человечество
«отмеряет, не отрезая», будет существовать эта
удивительно-жизненная пословица.

Program mass;

uses
  crt;

var
  mas: array [1..5, 1..6] of integer;
  mas_od: array[1..6] of integer;
  i, j: integer;

begin
  randomize;
  for i := 1 to 5 do
    for j := 1 to 6 do
      mas[i, j] := random(10)-5;
 
  for i := 1 to 5 do
  begin
    for j := 1 to 6 do
      write(mas[i, j]:4);
    writeln;
  end;
  writeln('');
   for i := 1 to 5 do
  begin
    mas_od[i] := 1;
    for j := 1 to 6 do
    begin
      if((mas [i, j] mod 2 = 0) and (mas[i, j] > 0)) then
        mas_od[i] := mas_od[i] * mas[i, j];
    end;
  end;
for i:=1 to 6 do  write(mas_od[i]:4);
writeln;
end.