Сортировка элементов массива методом "пузырька"

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

program sort
  integer,parameter::n=5
  integer m(n),i,max,j,a
  do i=1,n
   print*,'vvedite chislo'
   read*,m(i)
  end do
  max=m(1)
  
  do i=1,n
   do j=1,n
    if (m(j)>max) then
       max=m(j)
       a=m(i)
       m(i)=m(j)
       m(j)=a
    end if

   end do
  end do
 print*, m
 pause
end

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