Question

Ayudenme es urgente reaizar en pseudocodigo y en pasal
Elabore un algoritmo que permita efectuar la siguiente operación: Permita leer 50 datos numéricos, ademas obtenga;

a- Cantidad de números Positivos.
b- Cantidad de números Negativos.
c- Cantidad de números Pares.
d- Cantidad de números impares.

Answer 1

Program For1;
VAR
CantPosi, CantNega, CantPar, CantImp , i ,num :Integer;
BEGIN
CantPosi=0CantNega=0CantPar=0CantImp=0
i=0for (i=1 to 50 ) do begin
    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;