Svarog: Računalništvo: Fortran:


program uredi_stevila_od_-10_do_50
integer p(20),i,seme,j,min,c,n
seme=37
do i=1,20
  p(i)=int(ran(seme)*61-10)
enddo
print*,p
n=20
do i=1,n-1
  min=i
  do j=i+1,n
  if(p(j).lt.p(min))min=j
enddo
c=p(i)
p(i)=p(min)
p(min)=c
enddo
print*,p
end

Avtor: Danilo Klasinc

V kolikor želite sodelovati z nami, vas vljudno vabimo, da se nam pridružite, pošljete članke, ali pa samo izrazite vaša mnenja.