Forum Eks Grupy…

clc
clear all
disp('program TOTO';
n=6;
disp('podaj 6 liczb z zakresu 1-49';
B=zeros(1,n);
for j=1:n
por=0;
while B(j)<1 | B(j)>49 | por==1
liw=input(strcat(num2str(j),' liczba: ');
if size(liw)==[1 1]
B(j)=liw;
end
por=0;
for k=1:j-1
if (B(k)==B(j)) | (liw<1) | (liw>49)
por=1;
end;
end;
end;
end;
B=sort(B);
disp(strcat('podales liczby:',num2str(B)));