clc;
N = 10; pares = 0; impares = 0; numero = 0;
for cant=1:N
  numero = input("ingrese un numero: ");
  if rem(numero, 2)==0
    pares = pares + 1;
  else
    impares = impares + 1;
  endif
endfor
disp(pares/N);
disp(impares/N);