Сортировка вставками

Количество элементов массива можно менять, изменив значение параметра n

 program sort
  integer,parameter::n=5
  integer m(n),i,j,a
  do i=1,n
   print*,'vvedite chislo'
   read*,m(i)
  end do
  do i=2,n
    a=m(i)
    j=i-1
     do while (j>=1.and.m(j)>a)
      m(j+1)=m(j)
      j=j-1
     end do
    m(j+1)=a
  end do
 print*,m
 pause
end

Скачать (Яндекс.Диск)