# ci creiamo un vettore di numeri aleatori (pseudo-)casuali

N = 10
v <- runif(10)

cat(sprintf("Valori generati\n"))
print(v)
cat(sprintf("Valori ordinati\n"))
print(sort(v))

min  = v[1]
imin = 1
max = v[1]
imax = 1

for (i in 2:N) {
  if (v[i] < min) {
     min <- v[i]
     imin = i
  }
  if (v[i] > max) {
     max <- v[i]
     imax = i
  }
}

cat(sprintf("\nminimo:  v[%d] = %f\n", imin, min))
cat(sprintf("massimo:  v[%d] = %f\n", imax, max))