programa hola
constantes
max=15
tipo
t_vector=arreglo[1..max] de enteros
varialbes
v:t_vector
ocupado: entero
procedimiento carga (E/S v:t_vector, E/S ocupado:entero) [esto carga el vector]
variables
i:entero
respuesta:caracter
inicio
ocpuado<- 0
repetir
si ocupado0max entonces
escribir "vector lleno"
sino
ocupado <- ocupado + 1
escribir "ingrese un numero"
leer v[ocupado]
finsi
escribir "desea ingresar mas datos y/n"
leer respuesta
hasta que respuesta= "n"
fin
procedimiento TODO (E v:t_vector, E ocupado:entero) [esto calcula todo lo q pedis]
variables
i: entero
pos,neg,cero: entero
suma_pos,suma_neg:entero
inicio
pos <- 0
neg <- 0
cero <- 0
suma_pos <- 0
suma_neg <- 0
para i =1 hasta ocupado hacer
si v[i]>0 entonces
pos <- pos + 1
suma_pos <- suma_pos + v[i]
sino
si v[i]<0 entonces
neg <- neg + 1
suma_neg <- suma_neg + v[i]
sino
cero <- cero + 1
finsi
finsi
finpara
escribir "negativos: ", neg
escribir "positivos: ", pos
escribir "ceros: ", cero
escribir "la suma de los positivos es: ", suma_pos
escribir "la suma de los negativos es: ", suma_neg
fin
inicio [este es el programa principal]
carga(v , ocupado)
TODO(v,ocupado)
fin
espero q te sirva y si no q le sirva a otro q entre despues ok eso es todo si tenes alguna duda te respondo, ok chao.
pd: XD no me fije es todo sobre pascal simplemente tenes q pasarlo a ingles jeje.