NMAX=input('dwse to NMAX:');
n=input('posous tyxaious arithmous theleiw na paragoume:');

x=randi(NMAX,1,n);

x1=find(x==1);
xMax=find(x==NMAX);

if isempty(x1)
    disp('o arithmos 1 den emfanistike')
else
   disp(['o arithmos 1 emfanistike ', num2str(length(x1)),' fores'])
end

if isempty(x1)
    disp(['o arithmos ',num2str(NMAX),' den emfanistike'])
else
   disp(['o arithmos ',num2str(NMAX),' emfanistike ', num2str(length(NMAX)),' fores'])
end