Составьте программу, проверяющую есть ли в двумерном массиве A (N,N) столбцы, все элементы которых различны.

Составьте программу, проверяющую есть ли в двумерном массиве A (N,N) столбцы, все элементы которых различны.
Гость
Ответ(ы) на вопрос:
Гость
                      Const n=4; Var x:array [1..n,1..n] of integer; k,s,i,j:integer; begin    randomize;     for i:=1 to n do begin         for j:=1 to n do begin             x[i,j] := random(100);             write(x[i,j]:6);         end;         writeln;     end;    for i := 1 to n do     for j := 1 to n do       for k := j+1 to n do         if x[j,i]=x[k,i] then  writeln('NO')  else  writeln ('YES'); readln; end.       
Не нашли ответ?
Ответить на вопрос
Похожие вопросы