Usuario:Fernando~eswikibooks/ejercicio 76

---

---

Problemas 7

ejercicio 7.6

Calcular el numero de elementos negativos, cero y positivos de un vector dado de 60 elementos.

El vector YA esta “guardado” de cierto modo, asi que no lo leo (read(x))

Start

Var: Int Ceros, Negativos, Positivos, i ; Real v[60],

Ceros ← 0

Positivos ← 0

Negativos ← 0

For (i ← 0 , i < 60, i ← i +1)

................If (v[i] = = 0) then

................Ceros ← Ceros + 1

................Else

........................If (v[i] < 0) then

........................Negativos ← Negativos + 1

........................Else

........................Positivos ← Positivos + 1

........................End_If

................End_if

........End_For

Write(Ceros)

Write(Positivos)

Write(Negativos)

End

---

.