task_1_3ver4

%% 1,3
clear
clc
close all

size=6; % размер
TASK1 = rand(size,size);

varios=MakeVaribl(size);



jj=1;
max=length(varios);
arrOut=[];
while max>jj
        a=varios(jj,1); arrOut = cat(1,arrOut,TASK1(a,:));
        a=varios(jj,2); arrOut = cat(1,arrOut,TASK1(a,:));
        a=varios(jj,3); arrOut = cat(1,arrOut,TASK1(a,:));
        a=varios(jj,4); arrOut = cat(1,arrOut,TASK1(a,:));
        a=varios(jj,5); arrOut = cat(1,arrOut,TASK1(a,:));
        a=varios(jj,6); arrOut = cat(1,arrOut,TASK1(a,:));

diagonal=diag(arrOut);
diagonalDIFFER = diff(diagonal);
MinTASK1 = min(diagonalDIFFER);

    if (MinTASK1>=0)disp('РЕШЕНО');arrOut
    break; end
arrOut=[];
jj=jj+1;
    if jj==max
    disp('МАССИВА НЕТ'); end
end




function[val] = MakeVaribl(size)
delit=10; % 65432,1
varios =[];
start=123455;
finish=654321;
for ii = start:1:finish
        num = ii;
        Int1 = mod(num, delit);
        num = fix(num/delit);
        if (Int1>size || Int1==0) continue;
        end
        Int2 = mod(num, delit); num = fix(num/delit);
        if (Int2>size || Int2==0) continue;
        end
        Int3 = mod(num, delit); num = fix(num/delit);
        if (Int3>size || Int3==0) continue;
        end
        Int4 = mod(num, delit); num = fix(num/delit);
        if (Int4>size || Int4==0) continue;
        end
        Int5 = mod(num, delit); num = fix(num/delit);
        if (Int5>size || Int5==0) continue;
        end
        Int6 = mod(num, delit); num = fix(num/delit);
        if (Int6>size || Int6==0) continue;
        end
    order = [Int1,Int2,Int3,Int4,Int5,Int6];
    unikal = unique(order);
    if ((length(order)==length(unikal)))
        varios = cat(1,varios,order);
    end
end
val=varios;
T=table(varios);
writetable(T,'data_surfer.txt'); %% https://www.cyberforum.ru/matlab/thread1964964.html
end