11/03/2019, 14:08
program main
integer:: i,j,n
real:: a(100),k,t
read*, n
do i=1,n
read*, a(i)
end do
do i=2,n
k=a(i)
j=i-1
if (a(i)>k) then
a(j+1)=a(j)
j=j-1
end if
a(j+1)=k
end do
do i=1,n
print*, a(i)
end do
end
14/04/2019, 12:23
15/04/2019, 07:58
Skuola.net News è una testata giornalistica iscritta al Registro degli Operatori della Comunicazione.
Registrazione: n° 20792 del 23/12/2010.
©2000—
Skuola Network s.r.l. Tutti i diritti riservati. — P.I. 10404470014.
Powered by phpBB © phpBB Group - Privacy policy - Cookie privacy
phpBB Mobile / SEO by Artodia.