Какая концепция лежит в основе современных научных представлений о происхождении человека?

К. Линней. в своей книге «Система природы» он выделил род людей с одним видом – Человек разумный (Homo sapiens L.) и поместил его в отряд приматов вместе с низшими и высшими обезьянами. В 1760 г. К. Линней опубликовал работу «Родственники человека», в которой подчеркивал внешнее и внутреннее сходство человека и обезьян.
Жан Батист Ламарк в своем труде «Философия зоологии» (1809 г.) указывал на родство человека с обезьянами и предполагал, что человек произошел от древних человекообразных обезьян в результате перехода к прямохождению, причем стадный образ жизни первобытных людей способствовал развитию речи.
Значительный вклад в решение проблемы антропогенеза внес Ч. Дарвин. В своих трудах «Происхождение человека и половой отбор» (1871 г.) и «Выражение эмоций у человека и животных» (1872 г.) он на большом фактологическом материале показал поразительное сходство человека с животными и особенно с человекообразными обезьянами. На основании этого он пришел к выводу о наличии у обезьян и человека общего предка, обратив внимание на влияние социальных факторов в эволюции человека.

В основе современных представлений о происхождении человека лежит концепция, в соответствии с которой человек вышел из мира животных, причем первые научные доказательства в пользу этой концепции были представлены Ч. Дарвином в его труде «Происхождение человека и половой отбор» (1871). Ученые считают, что от какой-то группы дриопитеков (вымершей группы высших обезьян), начинается эволюционная линия гоминид.

const n=10; m=7;
type mas=array [1..n,1..m] of Integer;

procedure Vvodmas(var D:mas);
  var i,j:Integer;
begin
for i:=1  to n do
  for j:=1  to m do
    D[i,j]:=-50+Random(101);
end;

procedure Vivodmas(D:mas);
  var i,j:Integer;
begin
  for i:=1 to n do
    begin
      for j:=1  to m do Write(D[i,j]:4);
      Writeln;
    end;
end;

procedure Obmen(a,b: real; var D:mas);
  var i,j,p,n1,n2,max: Integer;
begin
  for j:=1  to m do
    begin
      n1:=1; max:=abs(D[1,j]);{считаем первый элемент столбца наибольшим по модулю}
      for i:=2 to n do
        if abs(D[i,j])>max then  {обнаружен больший элемент}
          begin n1:=i; max:=abs(D[i,j]) end;

      i:=n; {перебираем элементы столбца, начиная с последнего}
      while (i>=1)and (D[i,j]>a)and(D[i,j]<b) do i:=i-1;
      n2:=i;
      if n2<>0 then {если элемент, не принадлежащий интервалу (a,b), был найден}
        begin
          p:=D[n1,j]; D[n1,j]:=D[n2,j]; D[n2,j]:=p; {обмен значений}
        end;
    end;
end;

var D: mas; a,b:Real;
begin
  Randomize; Vvodmas(D);
  Writeln('Исходный массив:'); Vivodmas(D);
  Write('Введите через пробел концы интервала (a,b): '); Readln(a,b);
  Obmen(a,b,D);
  Writeln('Ответ:'); Vivodmas(D);
  Readln
end.

{Выводит узор из 100 произвольно размещенных окружностей произвольного
радиуса и цвета}
 uses Graph;
 var
      grDriver:integer;
      grMode: integer;
      grPath:string;
      ErrCode:integer;
       x,y,r: integer; ( координаты центра и радиус окружности }
       i: integer;
 begin
       grDriver:=VGA;
       grMode:=VGAHi;
       grPath:=' ';
       InitGraph (grDriver,grMode,grPath);
       ErrCode:=GraphResult;
       if ErrCode <> grOk then
               begin
                    writeln ('Ошибка инициализации графического режима.1);
                    writeln ('Для завершения работы нажмите <Enter>');
                    readln;
                    Halt(l);
                    end;
          Randomize;
          for i:=l to 100 do
                 begin
                      x:=Random(640);
                      y:=Random(480);
                      r:=Random(240);
                      Setcolor(Random(16));
                      Circle(x,y,r);
                      end;
    readin;
 end.