Question

Realizar un algoritmo que lea una serie de datos numericos y obtenga
A)cantidad de positivos .
B)cantidad de negativos.
C)cantidad de numero entre 1 y 20.
D)cantidad de números mayores a 50

Answer 1

{ pascal }
function cantidadPositivos(): Integer
var cantidad: Integer; numero:String;
Begin
cantidad := 0;
numero :='-1';
While ( numero <> #13 ) begin
if ( StrtoInt(numero) >= 0 )
inc ( cantidad );
writeln ('introducir numero');
readln (numero);
end;
result := cantidad;
End;