Developing.ru

[quote="Oleg_Rus"]
// цитата от Somewhere
Да и вообще лишняя операция - можно сделать на месте

вероятно можно, но мне кажется так более понятно...
[b][/quote][/b]
На будущее - цитаты пишутся так:
[Quote=Хыиуду] Если N невелико, можно сделать так: .... [b][/quotе][/b]

var P:set of integer;
begin 
  for i:=1 to n do
  for j:=1 to n do
    if {число A[i,j] находится там где надо:}
       if A[i,j] in P then begin writeln('No'); exit;end
       else include(A[i,j],P)
writeln('Yes');
end.

Если N невелико, можно сделать так:
[code]
var P:set of integer;
begin
for i:=1 to n do
for j:=1 to n do
if {число A[i,j] находится там где надо:}
if A[i,j] in P then begin writeln('No'); exit;end
else include(A[i,j],P)
writeln('Yes');
end.[/code]

[quote="&quot"]
а тебе не кажется, что здесь она проверит только два стоящих рядом элемента?
а если будет так 1 3 4 1?[/quote]
Это код, который вероятно хотел написать ты.
Для справки - нет нужды проверять все и вся на равенство. Элементы по сути образуют логическую цепочку. Каждые два соседних меняют логику общего результата. И если хотя бы одна пара не равна - тогда общий результат - False;

[b]Oleg_Rus[/b], скачай себе книжку наконец почитай про циклы - ты их не понимаешь..
Понятно, не есть задача программиста - важен оптимзированный код, а не красивый в написании..

// цитата от Somewhere
Да и вообще лишняя операция - можно сделать на месте

вероятно можно, но мне кажется так более понятно...

// цитата от Somewhere
for i:=1 to n-1 do if b[i]=b[i+1] then Razn:=True;

а тебе не кажется, что здесь она проверит только два стоящих рядом элемента?
а если будет так 1 3 4 1?

провериться только 1 и 2, 2 и 3, 3 и 4, а 1 и 4 не сравниваются...

for i:=1 to n-1 do if b[i]=b[i+1] then Razn:=True;

I := 2;
While (i<n) and (b[i]<>b[i-1]) do inc(I);
Razn := (I=n);

[quote="&quot"]b[k]:=a[n, n];[/quote]
А смысл-то какой одно и тоже число дублировать?
[quote="&quot"]// просотр массива
for i:=1 to n do
for j:=1 to n do
begin
b[k]:=a[n, n];
inc(k);
end;[/quote]
Да и вообще лишняя операция - можно сделать на месте
[quote="&quot"]for i:=1 to n do
for j:=1 to n do
if b[i]=b[j] then Razn:=True;[/quote]
Что-то тяжело до меня доходит зачем такая вложенность? Не проще-ли так?
[code]
for i:=1 to n-1 do if b[i]=b[i+1] then Razn:=True;
[/code]
А лучше так
[code]
I := 2;
While (i<n) and (b[i]<>b[i-1]) do inc(I);
Razn := (I=n);
[/code]
Вообще задача - установить различие элементов ВЫШЕ главной и побочной диагоналей. Координато этих элементов легко установить, из них исключить те, которые принадлежат главной (X=Y) и побочной (X=N-Y+1)

Razn:=False;

// просотр массива
for i:=1 to n do
for j:=1 to n do
begin
b[k]:=a[n, n];
inc(k);
end;

// проверка
for i:=1 to n do
for j:=1 to n do
if b[i]=b[j] then Razn:=True;

if Razn then writeln('Yes') else Writeln('No');
________________

если кто увидит ошибку, проссьба - известить!

можно устроить прогон по матрице, занести все числа в одномерный массив, и проверяем на различность.

все просто...

Ребятки, ну, помогите...!!!! Плиииизззз! )))))