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.
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.