Usuario:Fernando~eswikibooks/ejercicio 76
== Programación Algorítmica==
[editar]
Problemas 7
[editar]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
.