Составьте программу, проверяющую есть ли в двумерном массиве 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.
Не нашли ответ?
Похожие вопросы