Ayudenme es urgente reaizar en pseudocodigo y en pasalElabore un algoritmo que permita efectuar la siguiente operación : Permita leer 50 datos numéricos, ademas obtenga ;a - Cantidad de números Positi?

Program For1 ;

VAR

CantPosi, CantNega, CantPar, CantImp , i , num : Integer ;

BEGIN

CantPosi = 0CantNega = 0CantPar = 0CantImp = 0

i = 0for (i = 1 to 50 ) dobegin write(ingrese un numero : ) ; readln(num) ; if (num mod 2 = 0) Then begin CantPosi = CantPosi + 1 ; end ; else begin CantNega = CantNega + 1 ; end ; if (num > 0) begin CantPosi = CantPosi + 1 ; end ; else begin CantNega = CantNega + 1 ; end ;

end ;

write(Cantidad de números Positivos : ) ; writeln(CantPosi) ;

write(Cantidad de números Negativos : ) ; writeln(CantNega) ;

write(Cantidad de números Pares : ) ; writeln(CantPar) ;

write(Cantidad de números ImPares : ) ; writeln(CantImp) ;

END ;